steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Adding more assoc protocol methods to linked-assocs, bugfixes

db4
James Cash 2008-11-08 12:21:32 -05:00
parent b3acebc350
commit 41b7853e08
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/linked-assocs/linked-assocs.factor
View File

@ -10,12 +10,11 @@ TUPLE: linked-assoc assoc dlist ;
M: linked-assoc assoc-size assoc>> assoc-size ;
M: linked-assoc at* assoc>> at* tuck [ obj>> ] when second swap ;
M: linked-assoc at* assoc>> at* tuck [ obj>> second ] when swap ;
M: linked-assoc delete-at
[ [ assoc>> ] [ dlist>> ] bi [ at ] dip '[ _ delete-node ] when* ]
[ assoc>> delete-at ]
2bi ;
[ assoc>> delete-at ] 2bi ;
<PRIVATE
: add-to-dlist ( value key lassoc -- node )
@ -32,4 +31,11 @@ M: linked-assoc set-at
M: linked-assoc >alist
dlist>> dlist>seq ;
M: linked-assoc clear-assoc
[ assoc>> clear-assoc ] [ dlist>> clear-deque ] bi ;
M: linked-assoc clone
[ assoc>> clone ] [ dlist>> clone ] bi
linked-assoc boa ;
INSTANCE: linked-assoc assoc