core: Add the shuffler words but without primitives.

[factor.git] / basis / compiler / cfg / stacks / local / local-tests.factor

diff --git a/basis/compiler/cfg/stacks/local/local-tests.factor b/basis/compiler/cfg/stacks/local/local-tests.factor
index 6f5ac9c81eed1b5fefa1e5ff514b482a0c2cc2b7..83135d186dcde7bb8ad2401d06ad27fc93facc39 100644 (file)
--- a/basis/compiler/cfg/stacks/local/local-tests.factor
+++ b/basis/compiler/cfg/stacks/local/local-tests.factor
@@ -146,7 +146,7 @@ IN: compiler.cfg.stacks.local.tests
 : my-new-key4 ( a i j -- i/j )
     2over
     slot
-    swap over
+    tuck
     ! a i el j el
     [
         ! a i el j