fix schemegrammar*

svn: r10986

original commit: c2c7777c37811ce47984481baf7f728a0d2712a4
This commit is contained in:
Matthew Flatt 2008-07-30 17:20:09 +00:00
parent 5ffcc610ba
commit c442655ac2

View File

@ -946,7 +946,7 @@
(list (list (scheme id) (schemeblock0/form clause) ...) (list (list (scheme id) (schemeblock0/form clause) ...)
...)))] ...)))]
[(_ [id clause ...] ...) [(_ [id clause ...] ...)
(schemegrammar #:literals () [id clause ...] ...)])) (schemegrammar* #:literals () [id clause ...] ...)]))
(define-syntax-rule (var id) (define-syntax-rule (var id)
(*var 'id)) (*var 'id))
(define-syntax-rule (svar id) (define-syntax-rule (svar id)