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

[factor.git] / basis / compiler / tree / propagation / transforms / transforms.factor

diff --git a/basis/compiler/tree/propagation/transforms/transforms.factor b/basis/compiler/tree/propagation/transforms/transforms.factor
index 749daf9dcd6a3bc1a55966e36f0501ebb6222f6b..e95939b378f170679b34fee74c21e50accc86fae 100644 (file)
--- a/basis/compiler/tree/propagation/transforms/transforms.factor
+++ b/basis/compiler/tree/propagation/transforms/transforms.factor
@@ -164,7 +164,7 @@ ERROR: bad-partial-eval quot word ;
 
 : check-effect ( quot word -- )
     2dup [ infer ] [ stack-effect ] bi* effect<=
-    [ 2drop ] [ throw-bad-partial-eval ] if ;
+    [ 2drop ] [ bad-partial-eval ] if ;
 
 :: define-partial-eval ( word quot n -- )
     word [