dlists: simpler equality.

diff --git a/basis/dlists/dlists.factor b/basis/dlists/dlists.factor
index cb512ad95cd1efde2a97e2fef9371a25d96521eb..e767a9923ed1c3cc7f8964a47dbb32b2c3842356 100644 (file)
--- a/basis/dlists/dlists.factor
+++ b/basis/dlists/dlists.factor
@@ -35,20 +35,10 @@ TUPLE: dlist
 
 M: dlist deque-empty? front>> not ; inline
 
-<PRIVATE
-
-: dlist-nodes= ( dlist-node/f dlist-node/f -- ? )
-    {
-        [ [ dlist-link? ] both? ]
-        [ [ obj>> ] bi@ = ]
-    } 2&& ; inline
-
-PRIVATE>
-
 M: dlist equal?
     over dlist? [
         [ front>> ] bi@
-        [ 2dup dlist-nodes= ]
+        [ 2dup { [ and ] [ [ obj>> ] bi@ = ] } 2&& ]
         [ [ next>> ] bi@ ] while
         or not
     ] [