Better error message for syntax error in : foo ( : bar

db4
Daniel Ehrenberg 2009-03-31 23:18:52 -05:00
parent 19d8a6a552
commit 9e9116f0ea
1 changed files with 2 additions and 1 deletions

View File

@ -15,6 +15,7 @@ ERROR: bad-effect ;
scan {
{ "(" [ ")" parse-effect ] }
{ f [ ")" unexpected-eof ] }
[ bad-effect ]
} case 2array
] when
] if
@ -31,4 +32,4 @@ ERROR: bad-effect ;
"(" expect ")" parse-effect ;
: parse-call( ( accum word -- accum )
[ ")" parse-effect ] dip 2array over push-all ;
[ ")" parse-effect ] dip 2array over push-all ;