basis, extra: Use zip-index.

[factor.git] / basis / shuffle / shuffle.factor

diff --git a/basis/shuffle/shuffle.factor b/basis/shuffle/shuffle.factor
index 92478812beb565699cb06804d68aeb6d83b9325a..7903924361b906d4a25c77c0dfca8dcdcf6819f0 100644 (file)
--- a/basis/shuffle/shuffle.factor
+++ b/basis/shuffle/shuffle.factor
@@ -8,7 +8,7 @@ IN: shuffle
 <PRIVATE
 
 : >index-assoc ( sequence -- assoc )
-    dup length iota zip >hashtable ;
+    zip-index >hashtable ;
 
 PRIVATE>