From 489cfd14dccfcaf7b0ebd41e9d0f8e081a9d1d9f Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 25 Sep 2009 20:48:45 +0000
Subject: 	* boot/ast.boot (bfMember): Improve a bit. 	*
 boot/tokens.boot: Don't rename 'is' and 'inst'. 	* boot/parser.boot:
 Use 'in' instead of 'MEMQ' where approrpriate. 	* interp/: Likewise.

---
 src/interp/simpbool.boot | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/src/interp/simpbool.boot b/src/interp/simpbool.boot
index e487d986..b6f33fb3 100644
--- a/src/interp/simpbool.boot
+++ b/src/interp/simpbool.boot
@@ -87,9 +87,9 @@ b2dnf x ==
   x = NIL => 'false
   atom x => bassert x
   [op,:argl] := x
-  MEMQ(op,'(AND and)) => band argl
-  MEMQ(op,'(OR or))   => bor argl
-  MEMQ(op,'(NOT not)) => bnot first argl
+  op in '(AND and) => band argl
+  op in '(OR or)   => bor argl
+  op in '(NOT not) => bnot first argl
   bassert x
 band x ==
   x is [h,:t] => andDnf(b2dnf h,band t)
-- 
cgit v1.2.3