commit 904826dc7d3a4b2cbf1c86ad56021dd4f5db6a8e
parent 744dd4497886fa8bcf43b7266f0aae5822541833
Author: Robby Findler <robby@racket-lang.org>
Date: Mon, 16 Feb 2009 15:20:00 +0000
svn: r13664
original commit: 4d5e203f215ea7b063ed3afba92ec3c4d300e7b0
Diffstat:
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git 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)]