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

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

diff --git a/basis/compiler/tree/propagation/simple/simple.factor b/basis/compiler/tree/propagation/simple/simple.factor
index 971f79be053f11c69436efb987360711500dcb09..05ad2aeed34afdad7cdedfa55a2e735ac909d6f7 100644 (file)
--- a/basis/compiler/tree/propagation/simple/simple.factor
+++ b/basis/compiler/tree/propagation/simple/simple.factor
@@ -73,7 +73,7 @@ ERROR: invalid-outputs #call infos ;
 
 : check-outputs ( #call infos -- infos )
     over out-d>> over [ length ] bi@ =
-    [ nip ] [ throw-invalid-outputs ] if ;
+    [ nip ] [ invalid-outputs ] if ;
 
 : call-outputs-quot ( #call word -- infos )
     dupd