From a1e1873a557b7c44dc6593618eb9fae8849347d0 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 12 Dec 2008 20:11:30 +0000
Subject:  r12451@gauss:  gdr | 2008-12-12 08:39:20 -0600  	Tidy.

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

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

diff --git a/src/interp/wi1.boot b/src/interp/wi1.boot
index eab2d59d..f149f1b2 100644
--- a/src/interp/wi1.boot
+++ b/src/interp/wi1.boot
@@ -368,7 +368,7 @@ compSymbol(s,m,e) ==
         [s,v.mode,e] --s will be replaced by an ELT form in beforeCompile
     [s,v.mode,e] --s has been SETQd
   m':= getmode(s,e) =>
-    if not member(s,$formalArgList) and not MEMQ(s,$FormalMapVariableList) and
+    if not MEMQ(s,$formalArgList) and not MEMQ(s,$FormalMapVariableList) and
       not isFunction(s,e) and null ($compForModeIfTrue=true) then errorRef s
     [s,m',e] --s is a declared argument
   MEMQ(s,$FormalMapVariableList) => stackMessage ["no mode found for",s]
-- 
cgit v1.2.3