Fix running of Guile multivalue and std_vector examples

This commit is contained in:
William S Fulton 2013-05-08 14:10:47 +01:00
commit 1adb239046
4 changed files with 6 additions and 3 deletions

View file

@ -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)' \

View file

@ -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)