Merge branch 'master' into startup

[factor.git] / basis / tools / crossref / crossref.factor

diff --git a/basis/tools/crossref/crossref.factor b/basis/tools/crossref/crossref.factor
index f5d4b5512909c35f29a40e1a48c7c9e3cff874ef..134395f1a85881e02a047c8f90f2fd3e8fa9659f 100644 (file)
--- a/basis/tools/crossref/crossref.factor
+++ b/basis/tools/crossref/crossref.factor
@@ -24,13 +24,13 @@ M: word quot-uses over crossref? [ conjoin ] [ 2drop ] if ;
     [ quot-uses ] curry each ;
 
 : seq-uses ( seq assoc -- )
-    over visited get memq? [ 2drop ] [
+    over visited get member-eq? [ 2drop ] [
         over visited get push
         (seq-uses)
     ] if ;
 
 : assoc-uses ( assoc' assoc -- )
-    over visited get memq? [ 2drop ] [
+    over visited get member-eq? [ 2drop ] [
         over visited get push
         [ >alist ] dip (seq-uses)
     ] if ;