Add passociate word: like associate but for persistent hashtables
parent
3bb778eab4
commit
a81e737e02
basis/persistent/hashtables
|
@ -53,3 +53,6 @@ M: persistent-hash clone ;
|
|||
M: persistent-hash pprint-delims drop \ PH{ \ } ;
|
||||
M: persistent-hash >pprint-sequence >alist ;
|
||||
M: persistent-hash pprint* pprint-object ;
|
||||
|
||||
: passociate ( value key -- phash )
|
||||
T{ persistent-hash } new-at ; inline
|
||||
|
|
Loading…
Reference in New Issue