suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

svn: r13664

Browse Source 
original commit: 4d5e203f215ea7b063ed3afba92ec3c4d300e7b0
This commit is contained in:
Robby Findler 2009-02-16 15:20:00 +00:00
parent 744dd44978
commit 904826dc7d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/games/chat-noir/literate-lang.ss
View File

@ -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)]