#:part is gone
svn: r13671 original commit: 58e618478ecb98c2daee644eee3d933cfc4d2d0e
This commit is contained in:
parent
5b3b204a92
commit
36569a05b4
|
@ -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