fix schemegrammar*

svn: r10986
This commit is contained in:
Matthew Flatt 2008-07-30 17:20:09 +00:00
parent 9126b772f7
commit c2c7777c37

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)