fix error message

svn: r8847
This commit is contained in:
Eli Barzilay 2008-03-02 06:28:47 +00:00
parent 6f0322d51b
commit 4c63166f16

View File

@ -22,7 +22,7 @@
(raise-syntax-error
#f
(syntax-case stx ()
[(_ id expr ...)
[(_ id expr0 expr ...)
"bad syntax (multiple expressions after identifier)"]
[(_ id)
"bad syntax (zero expressions after identifier)"]