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

2014-04-27 15:20:54 -07:00 · 2014-04-27 15:20:54 -07:00 · bdbb1d7812
parent cb9b04c153
commit bdbb1d7812
1 changed files with 3 additions and 0 deletions
--- a/basis/linked-assocs/linked-assocs.factor
+++ b/basis/linked-assocs/linked-assocs.factor
@ -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 ;