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/g-util.boot | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/interp/g-util.boot')

diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot
index 11960741..e1ff661a 100644
--- a/src/interp/g-util.boot
+++ b/src/interp/g-util.boot
@@ -57,8 +57,8 @@ usedSymbol?(s,x) ==
   symbol? x => s = x
   atom x => false
   x is ['QUOTE,:.] => false
-  x is [op,parms,:body] and op in $AbstractionOperator =>
-    s in parms => false
+  x is [op,parms,:body] and abstractionOperator? op =>
+    symbolMember?(s,parms) => false
     usedSymbol?(s,body)
   or/[usedSymbol?(s,x') for x' in x]
   
-- 
cgit v1.2.3