Temporary patch for assoc-map on linked-assoc
Until https://github.com/slavapestov/factor/issues/1028 is resolveddb4
parent
99c853e3c8
commit
a9e3d86146
|
@ -48,6 +48,12 @@ M: linked-assoc clear-assoc
|
|||
M: linked-assoc clone
|
||||
[ 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
|
||||
|
||||
: >linked-hash ( assoc -- assoc )
|
||||
|
|
Loading…
Reference in New Issue