#:part is gone
svn: r13671
This commit is contained in:
parent
6539836e12
commit
58e618478e
|
@ -31,8 +31,6 @@
|
||||||
;; by `tangle'.
|
;; by `tangle'.
|
||||||
(define-syntax (chunk stx)
|
(define-syntax (chunk stx)
|
||||||
(syntax-case stx ()
|
(syntax-case stx ()
|
||||||
;; no use for the part function here
|
|
||||||
[(_ #:part part-function name expr ...) #'(chunk name expr ...)]
|
|
||||||
[(_ name expr ...)
|
[(_ name expr ...)
|
||||||
(cond [(not (identifier? #'name))
|
(cond [(not (identifier? #'name))
|
||||||
(raise-syntax-error #f "expected a chunk name" stx #'name)]
|
(raise-syntax-error #f "expected a chunk name" stx #'name)]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user