Tweak the dlist equal? word.

2011-11-02 19:53:40 -07:00 · 2011-11-02 19:53:40 -07:00 · e6bde7c6aa
parent e57b8e5e4a
commit e6bde7c6aa
1 changed files with 1 additions and 1 deletions
--- 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 ;