Add passociate word: like associate but for persistent hashtables

db4
Slava Pestov 2008-11-13 00:10:37 -06:00
parent 3bb778eab4
commit a81e737e02
1 changed files with 3 additions and 0 deletions
basis/persistent/hashtables

View File

@ -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