From 1906e73ab030ad23f1f6269acfed69703c8c40d6 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 2 May 2011 01:02:57 +0000
Subject: more cleanup

---
 src/interp/msg.boot | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'src/interp/msg.boot')

diff --git a/src/interp/msg.boot b/src/interp/msg.boot
index 4e4c8542..fcffa99e 100644
--- a/src/interp/msg.boot
+++ b/src/interp/msg.boot
@@ -59,9 +59,6 @@ $ncMsgList := []
 
 --%
 
-ListMember?(ob, l) ==
-  MEMBER(ob, l, KEYWORD::TEST, function EQUAL)
-
 --%  Messages for the USERS of the compiler.
 -- The program being compiled has a minor error.
 -- Give a message and continue processing.
@@ -493,7 +490,8 @@ setMsgCatlessAttr(msg,attr) ==
 whichCat attr ==
     found := 'catless
     for cat in $attrCats repeat
-        if ListMember? (attr,eval cat) then
+        -- ??? a cat is a vector.
+        if listMember?(attr,eval cat) then
           found := cat
           return found
     found
-- 
cgit v1.2.3