core: Add the shuffler words but without primitives.

[factor.git] / extra / tokyo / assoc-functor / assoc-functor.factor

diff --git a/extra/tokyo/assoc-functor/assoc-functor.factor b/extra/tokyo/assoc-functor/assoc-functor.factor
index bfcba2e55b6795b92608f2814094c0dfe0ca4d33..1c4ff1b88a65e981d01bbaadf2617d427bdc61e6 100644 (file)
--- a/extra/tokyo/assoc-functor/assoc-functor.factor
+++ b/extra/tokyo/assoc-functor/assoc-functor.factor
@@ -39,7 +39,7 @@ M: TYPE assoc-size handle>> DBRNUM ;
     dup DBITERINIT drop 0 int <ref>
     [ 2dup DBITERNEXT dup ] [
         [ memory>object ] [ tcfree ] bi
-        [ pick ] dip swap push
+        reach push
     ] while 3drop ;
 
 M: TYPE >alist