steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

hashtables: faster keys and values on hashtables.

db4
John Benediktsson 2013-04-06 21:20:07 -07:00
parent 9926c205a5
commit a58c8ecc03
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
core/hashtables/hashtables.factor
View File

@ -162,6 +162,16 @@ M: hashtable >alist
[ [ 2array ] dip push-unsafe ] curry each-pair [ [ 2array ] dip push-unsafe ] curry each-pair
] keep { } like ; ] 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 M: hashtable clone
(clone) [ clone ] change-array ; inline (clone) [ clone ] change-array ; inline