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

View File

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