change ERROR: words from throw-foo back to foo.

[factor.git] / extra / smalltalk / parser / parser.factor

diff --git a/extra/smalltalk/parser/parser.factor b/extra/smalltalk/parser/parser.factor
index ae58d6c0b9fee1e30519539dfa350685a3181a87..6de20afc6d33aaff1713ce2fbce4b07ccd33de73 100644 (file)
--- a/extra/smalltalk/parser/parser.factor
+++ b/extra/smalltalk/parser/parser.factor
@@ -11,7 +11,7 @@ IN: smalltalk.parser
 ERROR: bad-number str ;
 
 : check-number ( str -- n )
-    >string dup string>number [ ] [ throw-bad-number ] ?if ;
+    >string dup string>number [ ] [ bad-number ] ?if ;
 
 EBNF: parse-smalltalk