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

[factor.git] / basis / linked-assocs / linked-assocs.factor

diff --git a/basis/linked-assocs/linked-assocs.factor b/basis/linked-assocs/linked-assocs.factor
index 4efb777e3226e3ff31ef39c2beb7bb997ab24176..3d3ce4942d553ffdb78941217ff522966f696ff3 100644 (file)
--- 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 ;