Tweak the dlist equal? word.

diff --git a/basis/dlists/dlists.factor b/basis/dlists/dlists.factor
index c385b57973372fb69a87f6fa7af2bbc136e3b071..8e2df72c18669212e789d3bdac93b91254b6e70c 100644 (file)
--- a/basis/dlists/dlists.factor
+++ b/basis/dlists/dlists.factor
@@ -49,7 +49,7 @@ M: dlist equal?
         [ front>> ] bi@
         [ 2dup dlist-nodes= ]
         [ [ next>> ] bi@ ] while 
-        2array { f f } =
+        2array or not
     ] [
         2drop f
     ] if ;