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

[factor.git] / core / generic / parser / parser.factor

diff --git a/core/generic/parser/parser.factor b/core/generic/parser/parser.factor
index 61c9136f178b8f9e38f4855f3ccd9341c03859db..77533de629cba040d88451aa701c3e885672da32 100644 (file)
--- a/core/generic/parser/parser.factor
+++ b/core/generic/parser/parser.factor
@@ -38,7 +38,7 @@ SYMBOL: current-method
 ERROR: bad-method-effect ;
 
 : check-method-effect ( effect -- )
-    last-word generic-effect method-effect= [ throw-bad-method-effect ] unless ;
+    last-word generic-effect method-effect= [ bad-method-effect ] unless ;
 
 : ?execute-parsing ( word/number -- seq )
     dup parsing-word?