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

linked-assocs: implement M\ linked-assoc equal?.

db4
John Benediktsson 2014-04-27 15:20:54 -07:00
parent cb9b04c153
commit bdbb1d7812
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -57,3 +57,6 @@ M: linked-assoc assoc-like
over linked-assoc? over linked-assoc?
[ 2dup [ assoc>> ] bi@ class-of instance? ] [ f ] if [ 2dup [ assoc>> ] bi@ class-of instance? ] [ f ] if
[ drop ] [ assoc>> <linked-assoc> swap assoc-union! ] if ; [ drop ] [ assoc>> <linked-assoc> swap assoc-union! ] if ;
M: linked-assoc equal?
over linked-assoc? [ [ dlist>> ] bi@ = ] [ 2drop f ] if ;