From faaf19e1912ba48e9fbd195d2b90c4e205c87538 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 19 Apr 2011 18:14:50 +0000
Subject: cleanup

---
 src/interp/i-resolv.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/i-resolv.boot')

diff --git a/src/interp/i-resolv.boot b/src/interp/i-resolv.boot
index dd974b3e..b181b769 100644
--- a/src/interp/i-resolv.boot
+++ b/src/interp/i-resolv.boot
@@ -795,6 +795,6 @@ compareTT(t1,t2) ==
   -- 'T if type t1 is more nested than t2
   -- otherwise 'T if t1 is lexicographically greater than t2
   t1 is [=$QuotientField,:.] or
-    MEMQ(opOf t2,[$QuotientField, 'SimpleAlgebraicExtension]) => NIL
+    symbolMember?(opOf t2,[$QuotientField, 'SimpleAlgebraicExtension]) => NIL
     CGREATERP(PRIN2CVEC opOf t1,PRIN2CVEC opOf t2)
 
-- 
cgit v1.2.3