jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix mzscheme simple example

Browse source
This commit is contained in:
William S Fulton 2019-02-06 22:55:15 +00:00
commit f6da155fda
2 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Examples/mzscheme/simple/Makefile
View file

@ -13,5 +13,6 @@ build:
$(MAKE) -f $(TOP)/Makefile SRCDIR='$(SRCDIR)' SRCS='$(SRCS)' \ $(MAKE) -f $(TOP)/Makefile SRCDIR='$(SRCDIR)' SRCS='$(SRCS)' \
SWIG_LIB_DIR='$(SWIG_LIB_DIR)' SWIGEXE='$(SWIGEXE)' \ SWIG_LIB_DIR='$(SWIG_LIB_DIR)' SWIGEXE='$(SWIGEXE)' \
SWIGOPT='$(SWIGOPT)' TARGET='$(TARGET)' INTERFACE='$(INTERFACE)' mzscheme SWIGOPT='$(SWIGOPT)' TARGET='$(TARGET)' INTERFACE='$(INTERFACE)' mzscheme
clean: clean:
$(MAKE) -f $(TOP)/Makefile SRCDIR='$(SRCDIR)' mzscheme_clean $(MAKE) -f $(TOP)/Makefile SRCDIR='$(SRCDIR)' mzscheme_clean

6
Examples/mzscheme/simple/runme.scm
View file

@ -4,7 +4,7 @@
(display (get-time)) (display (get-time))
(printf "My-variable = ~a~n" (my-variable)) (printf "My-variable = ~a~n" (My-variable))
(let loop ((i 0)) (let loop ((i 0))
(when (< i 14) (begin (display i) (when (< i 14) (begin (display i)
@ -17,8 +17,8 @@
(when (< i 250) (when (< i 250)
(begin (begin
(let loopi ((j 1)) (let loopi ((j 1))
(when (< j 250) (begin (my-variable (+ (my-variable) (mod i j))) (when (< j 250) (begin (My-variable (+ (My-variable) (mod i j)))
(loopi (+ j 1))))) (loopi (+ j 1)))))
(loop (+ i 1))))) (loop (+ i 1)))))
(printf "My-variable = ~a~n" (my-variable)) (printf "My-variable = ~a~n" (My-variable))