Using "same?" in more places.

[factor.git] / basis / dlists / dlists.factor

diff --git a/basis/dlists/dlists.factor b/basis/dlists/dlists.factor
index e767a9923ed1c3cc7f8964a47dbb32b2c3842356..297e5a5c25a1fb3f36baa2fc3fa22a6eac6584ae 100644 (file)
--- a/basis/dlists/dlists.factor
+++ b/basis/dlists/dlists.factor
@@ -38,7 +38,7 @@ M: dlist deque-empty? front>> not ; inline
 M: dlist equal?
     over dlist? [
         [ front>> ] bi@
-        [ 2dup { [ and ] [ [ obj>> ] bi@ = ] } 2&& ]
+        [ 2dup { [ and ] [ [ obj>> ] same? ] } 2&& ]
         [ [ next>> ] bi@ ] while
         or not
     ] [