guile: get multimap example to run

This commit is contained in:
Geert Janssens 2013-05-01 12:13:13 +02:00
commit fbb1978eb4
3 changed files with 10 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 SRCS='$(SRCS)' SWIG='$(SWIG)' \

View file

@ -1,6 +1,6 @@
;;; Test out some multi-argument typemaps
(use-modules (example))
(dynamic-call "scm_init_example_module" (dynamic-link "./libexample.so"))
; Call the GCD function
@ -27,4 +27,4 @@
(display (capitalize "hello world"))
(newline)
(exit 0)