#:part is gone

svn: r13671

original commit: 58e618478ecb98c2daee644eee3d933cfc4d2d0e
This commit is contained in:
Eli Barzilay 2009-02-16 16:43:00 +00:00
parent 5b3b204a92
commit 36569a05b4

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