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

[factor.git] / core / combinators / combinators.factor

diff --git a/core/combinators/combinators.factor b/core/combinators/combinators.factor
index 9d43d4c7e4dfef215dbbb13ac1c4597923596fcb..f348155d3698760797698f8c7103192ade30f759 100644 (file)
--- a/core/combinators/combinators.factor
+++ b/core/combinators/combinators.factor
@@ -38,7 +38,7 @@ SLOT: terminated?
             check-datastack
         ] if
     ] 2dip rot
-    [ 2drop ] [ throw-wrong-values ] if ;
+    [ 2drop ] [ wrong-values ] if ;
 
 : execute-effect ( word effect -- )
     [ [ execute ] curry ] dip call-effect ;