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

Temporary patch for assoc-map on linked-assoc 

Until https://github.com/slavapestov/factor/issues/1028 is resolved
db4
Jon Harper 2014-04-05 15:09:54 +02:00 committed by John Benediktsson
parent 99c853e3c8
commit a9e3d86146
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/linked-assocs/linked-assocs.factor
View File

@ -48,6 +48,12 @@ M: linked-assoc clear-assoc
M: linked-assoc clone M: linked-assoc clone
[ assoc>> clone ] [ dlist>> clone ] bi linked-assoc boa ; [ assoc>> clone ] [ dlist>> clone ] bi linked-assoc boa ;
: >linked-assoc ( assoc -- linked-assoc )
>alist [ <linked-hash> ] dip assoc-union! ;
M: linked-assoc assoc-like
drop dup linked-assoc? [ >linked-assoc ] unless ; inline
INSTANCE: linked-assoc assoc INSTANCE: linked-assoc assoc
: >linked-hash ( assoc -- assoc ) : >linked-hash ( assoc -- assoc )