assocs: making unzip generic to be faster on hashtables.

[factor.git] / core / hashtables / hashtables.factor

diff --git a/core/hashtables/hashtables.factor b/core/hashtables/hashtables.factor
index 7d072f93a391a79d100b87f1dd7f3e786d238f86..79fe86093db7d4bcb46aba47492208ab61a8db35 100644 (file)
--- a/core/hashtables/hashtables.factor
+++ b/core/hashtables/hashtables.factor
@@ -165,6 +165,10 @@ M: hashtable keys [ drop ] collect-pairs ;
 
 M: hashtable values [ nip ] collect-pairs ;
 
+M: hashtable unzip
+    [ assoc-size dup [ <vector> ] bi@ ] [ array>> ] bi
+    [ [ suffix! ] bi-curry@ bi* ] each-pair [ { } like ] bi@ ;
+
 M: hashtable clone
     (clone) [ clone ] change-array ; inline