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))
(define-syntax (while stx)
(syntax-parse stx
[(_while test-expr body ...)
[(_while test body ...)
#'(let loop ()
(when test
body ...
(loop)))]
[_
(raise-syntax-error
#f "(while test-expr body ...) expected, got:" stx)]))
#f "(while test-expr body ...) expected, got:" stx)]))