From e6bde7c6aab6498500c3f6f8e9830d683b42aed6 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 2 Nov 2011 19:53:40 -0700
Subject: [PATCH] Tweak the dlist equal? word.

---
 basis/dlists/dlists.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/dlists/dlists.factor b/basis/dlists/dlists.factor
index c385b57973..8e2df72c18 100644
--- 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 ;