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

hashtables: add a 2hashtable word that is like associate but for two key/value pairs.

db4
Doug Coleman 2016-03-02 17:16:05 -08:00
parent 490523e732
commit 3c48141689
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/hashtables/hashtables.factor
View File

@ -150,6 +150,9 @@ M: hashtable set-at
[ 2dup hash@ set-nth-pair ] keep [ 2dup hash@ set-nth-pair ] keep
hashtable boa ; inline hashtable boa ; inline
: 2hashtable ( value0 key0 value1 key1 -- hash )
H{ } clone [ set-at ] keep [ set-at ] keep ; inline
<PRIVATE <PRIVATE
: collect-pairs ( hash quot: ( key value -- elt ) -- seq ) : collect-pairs ( hash quot: ( key value -- elt ) -- seq )