#:part is gone

svn: r13671
This commit is contained in:
Eli Barzilay 2009-02-16 16:43:00 +00:00
parent 6539836e12
commit 58e618478e

View File

@ -31,8 +31,6 @@
;; by `tangle'.
(define-syntax (chunk stx)
(syntax-case stx ()
;; no use for the part function here
[(_ #:part part-function name expr ...) #'(chunk name expr ...)]
[(_ name expr ...)
(cond [(not (identifier? #'name))
(raise-syntax-error #f "expected a chunk name" stx #'name)]