persistent.hashtables: fix missing keys/values, not sure why these aren't assocs.

db4
John Benediktsson 2013-04-07 09:45:10 -07:00
parent e3ea3ac140
commit 2fc1ade4c9
1 changed files with 5 additions and 1 deletions
basis/persistent/hashtables

View File

@ -1,7 +1,7 @@
! Based on Clojure's PersistentHashMap by Rich Hickey.
USING: kernel math accessors assocs fry combinators parser
prettyprint.custom locals make
prettyprint.custom locals make sequences
persistent.assocs
persistent.hashtables.nodes
persistent.hashtables.nodes.empty
@ -39,6 +39,10 @@ M: persistent-hash pluck-at
M: persistent-hash >alist [ root>> >alist% ] { } make ;
M: persistent-hash keys >alist [ first ] map ;
M: persistent-hash values >alist [ second ] map ;
:: >persistent-hash ( assoc -- phash )
T{ persistent-hash } assoc [| ph k v | v k ph new-at ] assoc-each ;