svn: r13664

2009-02-16 15:20:00 +00:00 · 2009-02-16 15:20:00 +00:00 · 4d5e203f21
commit 4d5e203f21
parent e17f7347e7
1 changed files with 1 additions and 1 deletions
--- a/collects/games/chat-noir/literate-lang.ss
+++ b/collects/games/chat-noir/literate-lang.ss
@ -32,7 +32,7 @@
 (define-syntax (chunk stx)
  (syntax-case stx ()
    ;; no use for the part function here
-    [(_ #:part part-function name expr ...) (chunk name expr ...)]
+    [(_ #:part part-function name expr ...) #'(chunk name expr ...)]
    [(_ name expr ...)
     (cond [(not (identifier? #'name))
            (raise-syntax-error #f "expected a chunk name" stx #'name)]