Temporary patch for dlists equality testing

Until https://github.com/slavapestov/factor/issues/1027 is resolved

diff --git a/basis/dlists/dlists.factor b/basis/dlists/dlists.factor
index 8d1d47f5a4c83cb88098ef49da8997d7dbaf17d3..91e40ad1d3758bf197ffbf04ac7219e35dc03a00 100644 (file)
--- a/basis/dlists/dlists.factor
+++ b/basis/dlists/dlists.factor
@@ -35,6 +35,7 @@ TUPLE: dlist
 
 M: dlist deque-empty? front>> not ; inline
 
+M: dlist-node equal? over dlist-node? [ [ obj>> ] same? ] [ 2drop f ] if ;
 M: dlist equal?
     over dlist? [
         [ front>> ] bi@