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

2009-03-31 23:18:52 -05:00 · 2009-03-31 23:18:52 -05:00 · 9e9116f0ea
parent 19d8a6a552
commit 9e9116f0ea
1 changed files with 2 additions and 1 deletions
--- a/core/effects/parser/parser.factor
+++ b/core/effects/parser/parser.factor
@ -15,6 +15,7 @@ ERROR: bad-effect ;
                scan {
                    { "(" [ ")" parse-effect ] }
                    { f [ ")" unexpected-eof ] }
+                    [ bad-effect ]
                } case 2array
            ] when
        ] if