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

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

diff --git a/src/interp/cparse.boot b/src/interp/cparse.boot
index 1ae46824..55990bed 100644
--- a/src/interp/cparse.boot
+++ b/src/interp/cparse.boot
@@ -315,7 +315,7 @@ npInfixOperator() ==
 
 ++ Parse any infix keyword in the list `s'.    
 npInfKey s ==
-  $stok.first.first = "key" and MEMQ($ttok,s) and npPushId()
+  $stok.first.first = "key" and symbolMember?($ttok,s) and npPushId()
 
 ++ Parse any infix keyword in the list `s', either in plain syntax
 ++ or quoted form.
@@ -393,7 +393,7 @@ npId() ==
   $stok.first.first = "id" =>
      npPush $stok
      npNext()
-  $stok.first.first = "key" and MEMQ($ttok,$npTokToNames) =>
+  $stok.first.first = "key" and symbolMember?($ttok,$npTokToNames) =>
      npPush tokConstruct("id",$ttok,tokPosn $stok)
      npNext()
   false
-- 
cgit v1.2.3