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

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

diff --git a/core/math/parser/parser.factor b/core/math/parser/parser.factor
index 4cc773e0eea42c3510deac5ece1a469738efb1ce..de8f60ce1d71541c55730b807a2b84d2297bfffc 100644 (file)
--- a/core/math/parser/parser.factor
+++ b/core/math/parser/parser.factor
@@ -454,7 +454,7 @@ M: fixnum (positive>dec)
     1 over (count-digits) <sbuf> (fixnum>dec) "" like reverse! nip ; inline
 
 : (positive>base) ( num radix -- str )
-    dup 1 <= [ throw-invalid-radix ] when
+    dup 1 <= [ invalid-radix ] when
     [ dup 0 > ] swap [ /mod >digit ] curry "" produce-as nip
     reverse! ; inline
 
@@ -534,7 +534,7 @@ M: ratio >base
         { 16 [ [ float>hex-value ] swap (bin-float>base) ] }
         { 8  [ [ float>oct-value ] swap (bin-float>base) ] }
         { 2  [ [ float>bin-value ] swap (bin-float>base) ] }
-        [ throw-invalid-radix ]
+        [ invalid-radix ]
     } case ;
 
 : format-string ( format -- format )