diff options
author | William S Fulton <wsf@fultondesigns.co.uk> | 2019-02-06 22:55:15 +0000 |
---|---|---|
committer | William S Fulton <wsf@fultondesigns.co.uk> | 2019-02-09 14:44:33 +0000 |
commit | f6da155fda1d86660dc65e3ea65e8e88da0c5a6c (patch) | |
tree | 13bbc43cf7fd5896fd83013d2df54bbaab7b2d50 /Examples/mzscheme | |
parent | 80e9034425e7d249f3acec213b2414308ca89472 (diff) | |
download | swig-f6da155fda1d86660dc65e3ea65e8e88da0c5a6c.tar.gz |
Fix mzscheme simple example
Diffstat (limited to 'Examples/mzscheme')
-rw-r--r-- | Examples/mzscheme/simple/Makefile | 1 | ||||
-rw-r--r-- | Examples/mzscheme/simple/runme.scm | 6 |
2 files changed, 4 insertions, 3 deletions
diff --git a/Examples/mzscheme/simple/Makefile b/Examples/mzscheme/simple/Makefile index 713ee43a7..eccd59d82 100644 --- a/Examples/mzscheme/simple/Makefile +++ b/Examples/mzscheme/simple/Makefile @@ -13,5 +13,6 @@ build: $(MAKE) -f $(TOP)/Makefile SRCDIR='$(SRCDIR)' SRCS='$(SRCS)' \ SWIG_LIB_DIR='$(SWIG_LIB_DIR)' SWIGEXE='$(SWIGEXE)' \ SWIGOPT='$(SWIGOPT)' TARGET='$(TARGET)' INTERFACE='$(INTERFACE)' mzscheme + clean: $(MAKE) -f $(TOP)/Makefile SRCDIR='$(SRCDIR)' mzscheme_clean diff --git a/Examples/mzscheme/simple/runme.scm b/Examples/mzscheme/simple/runme.scm index a98e31fd5..181635078 100644 --- a/Examples/mzscheme/simple/runme.scm +++ b/Examples/mzscheme/simple/runme.scm @@ -4,7 +4,7 @@ (display (get-time)) -(printf "My-variable = ~a~n" (my-variable)) +(printf "My-variable = ~a~n" (My-variable)) (let loop ((i 0)) (when (< i 14) (begin (display i) @@ -17,8 +17,8 @@ (when (< i 250) (begin (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))))) (loop (+ i 1))))) -(printf "My-variable = ~a~n" (my-variable)) +(printf "My-variable = ~a~n" (My-variable)) |