From f218661bdeb4203a24eae7cf72d76f50f55490ec Mon Sep 17 00:00:00 2001
From: Matthias Felleisen <matthias@racket-lang.org>
Date: Tue, 13 Oct 2009 18:30:02 +0000
Subject: [PATCH] #'record problem

svn: r16309
---
 collects/2htdp/universe.ss | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/collects/2htdp/universe.ss b/collects/2htdp/universe.ss
index 23ee7b5e5c..8650daf7cf 100644
--- a/collects/2htdp/universe.ss
+++ b/collects/2htdp/universe.ss
@@ -152,7 +152,7 @@
   ;; -- should the session be recorded and turned into PNGs and an animated GIF
   [record? (expr-with-check bool> "expected a boolean (to record? or not)")]
   [name (expr-with-check string> "expected a name (string) for the world")]
-  ;; -- register must specify the internet address of a host (including LOCALHOST)
+  ;; -- register must specify the internet address of a host (e.g., LOCALHOST)
   [register (expr-with-check ip> "expected a host (ip address)")])
 
 (define-syntax (big-bang stx)
@@ -162,12 +162,13 @@
     [(big-bang w clause ...)
      (let* ([rec? #'#f]
             [->rec? 
-             (lambda (kw)
+             (lambda (kw E)
                (when (free-identifier=? kw #'record?)
-                 (syntax-case #'E ()
+                 (syntax-case E ()
                    [(V) (set! rec? #'V)]
-                   [_ (err 'record? stx)])))]
-            [args (->args stx (syntax (clause ...)) AllSpec WldSpec ->rec? "world")])
+                   [_ (err '#'record? stx)])))]
+            [args 
+             (->args stx (syntax (clause ...)) AllSpec WldSpec ->rec? "world")])
        #`(parameterize ([current-eventspace (make-eventspace)])
            (let ([o (new (if #,rec? aworld% world%) [world0 w] #,@args)])
              (send o last))))]))
@@ -257,8 +258,9 @@
     [(universe) (raise-syntax-error #f "not a legal universe description" stx)]
     [(universe u) (raise-syntax-error #f "not a legal universe description" stx)]
     [(universe u bind ...)
-     (let* ([args (->args stx (syntax (bind ...)) AllSpec UniSpec void "universe")]
-            [domain (map (compose syntax-e car) args)])
+     (let*
+         ([args (->args stx (syntax (bind ...)) AllSpec UniSpec void "universe")]
+          [domain (map (compose syntax-e car) args)])
        (cond
          [(not (memq 'on-new domain))
           (raise-syntax-error #f "missing on-new clause" stx)]