From 4d5e203f215ea7b063ed3afba92ec3c4d300e7b0 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 16 Feb 2009 15:20:00 +0000 Subject: [PATCH] svn: r13664 --- collects/games/chat-noir/literate-lang.ss | 2 +- 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 index aac26b9daf..7dbec985be 100644 --- 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)]