core: Add the shuffler words but without primitives.

[factor.git] / basis / heaps / heaps.factor

diff --git a/basis/heaps/heaps.factor b/basis/heaps/heaps.factor
index a1fe479f77455f22c8fea91e447126dcd83f3af1..f4490fb6201d137eaf13d289502cc709453cb024 100644 (file)
--- a/basis/heaps/heaps.factor
+++ b/basis/heaps/heaps.factor
@@ -60,7 +60,7 @@ M: heap heap-size ( heap -- n )
 
 : data-push ( entry data -- n )
     [ length [ >>index ] keep ]
-    [ [ set-nth ] 2keep drop ] bi ; inline
+    [ [ set-nth ] keepd ] bi ; inline
 
 GENERIC: heap-compare ( entry1 entry2 heap -- ? )