core: Add the shuffler words but without primitives.

[factor.git] / core / growable / growable.factor

diff --git a/core/growable/growable.factor b/core/growable/growable.factor
index 09189991f7daaabf04f3d9160f618c5ef14e00d1..2f7554a76287be101ae1cef43cadf8be2e95e5c5 100644 (file)
--- a/core/growable/growable.factor
+++ b/core/growable/growable.factor
@@ -20,7 +20,7 @@ M: growable set-nth-unsafe underlying>> set-nth-unsafe ; inline
     [ set-nth-unsafe ] [ [ 1 fixnum+fast ] dip length<< ] 2bi ; inline
 
 : push-all-unsafe ( from to src dst -- )
-    [ over - swap ] 2dip [ pick ] dip [ length integer>fixnum ] keep
+    [ over - swap ] 2dip pickd [ length integer>fixnum ] keep
     [ [ fixnum+fast ] dip length<< ] 2keep <copy> (copy) drop ; inline
 
 PRIVATE>