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) ...)
...)))]
[(_ [id clause ...] ...)
(schemegrammar #:literals () [id clause ...] ...)]))
(schemegrammar* #:literals () [id clause ...] ...)]))
(define-syntax-rule (var id)
(*var 'id))
(define-syntax-rule (svar id)