svn: r13664
original commit: 4d5e203f215ea7b063ed3afba92ec3c4d300e7b0
This commit is contained in:
parent
744dd44978
commit
904826dc7d
|
@ -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)]
|
||||
|
|
Loading…
Reference in New Issue
Block a user