Fix bug in while

2015-10-01 19:37:14 +02:00 · 2015-10-01 19:37:14 +02:00 · 4db245c00d
commit 4db245c00d
parent 0ef7649346
1 changed files with 2 additions and 2 deletions
--- a/control/while.rkt
+++ b/control/while.rkt
@ -9,7 +9,7 @@
 (require (for-syntax syntax/parse))
 (define-syntax (while stx)
  (syntax-parse stx
-    [(_while test-expr body ...)
+    [(_while test body ...)
     #'(let loop ()
         (when test
           body ...