suzanne.soy/control
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix bug in while

Browse Source
This commit is contained in:
Jens Axel Søgaard 2015-10-01 19:37:14 +02:00
parent 0ef7649346
commit 4db245c00d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
control/while.rkt
View File

@ -9,11 +9,11 @@
(require (for-syntax syntax/parse)) (require (for-syntax syntax/parse))
(define-syntax (while stx) (define-syntax (while stx)
(syntax-parse stx (syntax-parse stx
[(_while test-expr body ...) [(_while test body ...)
#'(let loop () #'(let loop ()
(when test (when test
body ... body ...
(loop)))] (loop)))]
[_ [_
(raise-syntax-error (raise-syntax-error
#f "(while test-expr body ...) expected, got:" stx)])) #f "(while test-expr body ...) expected, got:" stx)]))