suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix syntax error message for (define x)

Browse Source 
svn: r3599
This commit is contained in:
Matthew Flatt 2006-07-05 16:24:23 +00:00
parent 456d18a712
commit a8ab7c9c26
3 changed files with 781 additions and 778 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1551
src/mzscheme/src/cstartup.inc
View File

File diff suppressed because it is too large Load Diff

4
src/mzscheme/src/startup.inc
View File

@ -2084,10 +2084,10 @@
"(raise-syntax-error" "(raise-syntax-error"
" #f" " #f"
"(syntax-case stx()" "(syntax-case stx()"
"((_ id expr ...)"
" \"bad syntax (multiple expressions after identifier)\")"
"((_ id)" "((_ id)"
" \"bad syntax (zero expressions after identifier)\")" " \"bad syntax (zero expressions after identifier)\")"
"((_ id expr ...)"
" \"bad syntax (multiple expressions after identifier)\")"
"((_ id . rest)" "((_ id . rest)"
" \"bad syntax (illegal use of `.')\"))" " \"bad syntax (illegal use of `.')\"))"
" stx))" " stx))"

4
src/mzscheme/src/startup.ss
View File

@ -2438,10 +2438,10 @@
(raise-syntax-error (raise-syntax-error
#f #f
(syntax-case stx () (syntax-case stx ()
[(_ id expr ...)
"bad syntax (multiple expressions after identifier)"]
[(_ id) [(_ id)
"bad syntax (zero expressions after identifier)"] "bad syntax (zero expressions after identifier)"]
[(_ id expr ...)
"bad syntax (multiple expressions after identifier)"]
[(_ id . rest) [(_ id . rest)
"bad syntax (illegal use of `.')"]) "bad syntax (illegal use of `.')"])
stx)] stx)]