core: Add the shuffler words but without primitives.

[factor.git] / extra / cursors / cursors.factor

diff --git a/extra/cursors/cursors.factor b/extra/cursors/cursors.factor
index a5d55aefb685f9fbef6cc35c5e8e4a9a45841d4a..2d8eb9f533a1f4a51890ac62b781f9c4f17793b6 100644 (file)
--- a/extra/cursors/cursors.factor
+++ b/extra/cursors/cursors.factor
@@ -574,7 +574,7 @@ MACRO: -nin- ( n -- quot )
 !
 
 : -with- ( invariant begin end quot -- begin end quot' )
-    [ rot ] dip '[ [ _ ] dip @ ] ; inline
+    rotd '[ [ _ ] dip @ ] ; inline
 
 : -2with- ( invariant invariant begin end quot -- begin end quot' )
     -with- -with- ; inline