core: Add the shuffler words but without primitives.

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

diff --git a/core/effects/effects.factor b/core/effects/effects.factor
index 010d4d4d975c68bcdf77d8ced6cd78a18403802b..ffdc4ead3976f70d8b155a00226218f433937770 100644 (file)
--- a/core/effects/effects.factor
+++ b/core/effects/effects.factor
@@ -21,7 +21,7 @@ TUPLE: effect
     f f effect boa ; inline
 
 : <variable-effect> ( in-var in out-var out -- effect )
-    swap [ rot ] dip [ ?terminated ] 2dip effect boa ;
+    swap rotd [ ?terminated ] 2dip effect boa ;
 
 : effect-height ( effect -- n )
     [ out>> length ] [ in>> length ] bi - ; inline