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

Fixing extra space, replacing tuck ... swap with [ ... ] keep

db4
James Cash 2008-11-11 02:04:25 -05:00
parent 44bfc0f802
commit a5576bbb1d
1 changed files with 2 additions and 2 deletions
basis/linked-assocs

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

@ -10,7 +10,7 @@ TUPLE: linked-assoc assoc dlist ;
M: linked-assoc assoc-size assoc>> assoc-size ;
M: linked-assoc at* assoc>> at* tuck [ obj>> second ] when swap ;
M: linked-assoc at* assoc>> at* [ [ obj>> second ] when ] keep ;
M: linked-assoc delete-at
[ [ assoc>> ] [ dlist>> ] bi [ at ] dip '[ _ delete-node ] when* ]