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

[factor.git] / basis / compiler / tree / propagation / call-effect / call-effect.factor

diff --git a/basis/compiler/tree/propagation/call-effect/call-effect.factor b/basis/compiler/tree/propagation/call-effect/call-effect.factor
index dab787c6880c593b98026b351ea87ef51a3f8546..361bb012867334eefd5c0b32b0258ee6d9999699 100644 (file)
--- a/basis/compiler/tree/propagation/call-effect/call-effect.factor
+++ b/basis/compiler/tree/propagation/call-effect/call-effect.factor
@@ -146,14 +146,14 @@ ERROR: uninferable ;
 : (infer-value) ( value-info -- effect )
     dup literal?>> [
         literal>>
-        [ callable? [ throw-uninferable ] unless ]
-        [ already-inlined-quot? [ throw-uninferable ] when ]
-        [ safe-infer dup +unknown+ = [ throw-uninferable ] when ] tri
+        [ callable? [ uninferable ] unless ]
+        [ already-inlined-quot? [ uninferable ] when ]
+        [ safe-infer dup +unknown+ = [ uninferable ] when ] tri
     ] [
         dup class>> {
             { \ curry [ slots>> third (infer-value) remove-effect-input ] }
             { \ compose [ slots>> last2 [ (infer-value) ] bi@ compose-effects ] }
-            [ throw-uninferable ]
+            [ uninferable ]
         } case
     ] if ;