From 4db245c00dea0e54f196214f96cc73384c9d58f4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jens=20Axel=20S=C3=B8gaard?= <jensaxel@soegaard.net>
Date: Thu, 1 Oct 2015 19:37:14 +0200
Subject: [PATCH] Fix bug in while

---
 control/while.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/control/while.rkt b/control/while.rkt
index 62e2720..a0c411c 100644
--- a/control/while.rkt
+++ b/control/while.rkt
@@ -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)]))
\ No newline at end of file
+      #f "(while test-expr body ...) expected, got:" stx)]))