hashtables.identity: support assoc-like
parent
7da8a9776f
commit
575f7fd663
|
@ -31,6 +31,9 @@ M: identity-hashtable clone
|
||||||
: >identity-hashtable ( assoc -- ihashtable )
|
: >identity-hashtable ( assoc -- ihashtable )
|
||||||
[ assoc-size <identity-hashtable> ] keep assoc-union! ;
|
[ assoc-size <identity-hashtable> ] keep assoc-union! ;
|
||||||
|
|
||||||
|
M: identity-hashtable assoc-like
|
||||||
|
drop dup identity-hashtable? [ >identity-hashtable ] unless ; inline
|
||||||
|
|
||||||
SYNTAX: IH{ \ } [ >identity-hashtable ] parse-literal ;
|
SYNTAX: IH{ \ } [ >identity-hashtable ] parse-literal ;
|
||||||
|
|
||||||
{ "hashtables.identity" "prettyprint" } "hashtables.identity.prettyprint" require-when
|
{ "hashtables.identity" "prettyprint" } "hashtables.identity.prettyprint" require-when
|
||||||
|
|
Loading…
Reference in New Issue