diff options
Diffstat (limited to 'Examples/mzscheme/simple/runme.scm')
-rw-r--r-- | Examples/mzscheme/simple/runme.scm | 6 |
1 files changed, 3 insertions, 3 deletions
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)) |