Temporary patch for dlists equality testing

Until https://github.com/slavapestov/factor/issues/1027 is resolved
2014-04-04 23:17:08 +02:00 · 2014-04-04 23:17:08 +02:00 · 99c853e3c8
parent 3623778d26
commit 99c853e3c8
1 changed files with 1 additions and 0 deletions
--- 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@