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

[factor.git] / core / effects / effects.factor

diff --git a/core/effects/effects.factor b/core/effects/effects.factor
index 2e9d6683219d32608ef5e5f662c36d258c1261da..c1288052b1c25ac114fe0a7b5067a15d7f646ffc 100644 (file)
--- a/core/effects/effects.factor
+++ b/core/effects/effects.factor
@@ -132,4 +132,4 @@ ERROR: bad-stack-effect word expected got ;
 
 : check-stack-effect ( word effect -- )
     over stack-effect 2dup effect=
-    [ 3drop ] [ throw-bad-stack-effect ] if ;
+    [ 3drop ] [ bad-stack-effect ] if ;