hashtables: faster keys and values on hashtables.

diff --git a/core/hashtables/hashtables.factor b/core/hashtables/hashtables.factor
index 5a94cccbefd70d995e4c505255c70be222eafdf7..420d525e59ff9a3005df23ffd57ee1a43e92a7fa 100644 (file)
--- a/core/hashtables/hashtables.factor
+++ b/core/hashtables/hashtables.factor
@@ -162,6 +162,16 @@ M: hashtable >alist
         [ [ 2array ] dip push-unsafe ] curry each-pair
     ] keep { } like ;
 
+M: hashtable keys
+    [ array>> ] [ assoc-size <vector> ] bi [
+        [ nip push-unsafe ] curry each-pair
+    ] keep { } like ;
+
+M: hashtable values
+    [ array>> ] [ assoc-size <vector> ] bi [
+        [ [ drop ] 2dip push-unsafe ] curry each-pair
+    ] keep { } like ;
+
 M: hashtable clone
     (clone) [ clone ] change-array ; inline