diff options
| -rw-r--r-- | mew.scm | 2 | ||||
| -rw-r--r-- | tests/test.mew | 6 |
2 files changed, 7 insertions, 1 deletions
diff --git a/mew.scm b/mew.scm index 6ae2e6d..92197b3 100644 --- a/mew.scm +++ b/mew.scm @@ -263,7 +263,7 @@ ((_ cond body ...) (let loop ((c cond)) (if c - (begin + (let () body ... (loop cond))))))) diff --git a/tests/test.mew b/tests/test.mew index 98ad5fa..904127d 100644 --- a/tests/test.mew +++ b/tests/test.mew @@ -234,6 +234,12 @@ (while (> y 0) (set x (+ x y)) (set y (dec y))) + x)) + (test 42 (loc (x 27 y 5) + (while (> y 0) + (def z (+ x y)) + (set x z) + (set y (dec y))) x))) (test-group "until" |