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

[factor.git] / extra / infix / infix.factor

diff --git a/extra/infix/infix.factor b/extra/infix/infix.factor
index 83611aaa7784f539066b73eeb69e73bd1bba7bd1..45ea18b12855130653f27e26d347f49e9793bdf2 100644 (file)
--- a/extra/infix/infix.factor
+++ b/extra/infix/infix.factor
@@ -16,7 +16,7 @@ M: local-not-defined summary
 
 : >local-word ( string -- word )
     qualified-vocabs last words>> ?at
-    [ throw-local-not-defined ] unless ;
+    [ local-not-defined ] unless ;
 
 ERROR: invalid-op string ;
 
@@ -28,7 +28,7 @@ ERROR: invalid-op string ;
         { "/" [ [ / ] ] }
         { "%" [ [ mod ] ] }
         { "**" [ [ ^ ] ] }
-        [ throw-invalid-op ]
+        [ invalid-op ]
     } case ;
 
 GENERIC: infix-codegen ( ast -- quot/number )