Fix running of Guile multivalue and std_vector examples
This commit is contained in:
parent
10acae18d2
commit
1adb239046
4 changed files with 6 additions and 3 deletions
|
|
@ -5,6 +5,7 @@ TARGET = example
|
|||
INTERFACE = example.i
|
||||
|
||||
check: build
|
||||
$(MAKE) -f ../Makefile RUNSCRIPT=runme.scm run_example
|
||||
|
||||
build:
|
||||
$(MAKE) -f $(TOP)/Makefile CXXSRCS='$(CXXSRCS)' SWIG='$(SWIG)' \
|
||||
|
|
|
|||
|
|
@ -1,6 +1,5 @@
|
|||
;; run with mzscheme -r example.scm
|
||||
|
||||
(use-modules (example))
|
||||
(dynamic-call "scm_init_example_module" (dynamic-link "./libexample"))
|
||||
|
||||
; repeatedly invoke a procedure with v and an index as arguments
|
||||
(define (with-vector v proc size-proc)
|
||||
|
|
@ -52,3 +51,4 @@
|
|||
(print-DoubleVector v)
|
||||
(delete-DoubleVector v)
|
||||
|
||||
(exit 0)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue