core: Add the shuffler words but without primitives.

[factor.git] / basis / compiler / cfg / stacks / stacks.factor

diff --git a/basis/compiler/cfg/stacks/stacks.factor b/basis/compiler/cfg/stacks/stacks.factor
index 9b6e3aef994c119685dc794ee437d5e61eb5ee27..3dcf5bd5254884bf27063ba06b25e35c66698b9c 100644 (file)
--- a/basis/compiler/cfg/stacks/stacks.factor
+++ b/basis/compiler/cfg/stacks/stacks.factor
@@ -21,7 +21,7 @@ IN: compiler.cfg.stacks
     } apply-passes ;
 
 : create-locs ( loc-class seq -- locs )
-    [ swap new swap >>n ] with map <reversed> ;
+    [ [ new ] dip >>n ] with map <reversed> ;
 
 : stack-locs ( loc-class n -- locs )
     <iota> create-locs ;