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/newfort.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/interp/newfort.boot b/src/interp/newfort.boot
index 96240a71..f8b4cb4a 100644
--- a/src/interp/newfort.boot
+++ b/src/interp/newfort.boot
@@ -204,7 +204,7 @@ beenHere(e,n) ==
       fun = 'CAR =>
         RPLACA(loc,var)
       fun = 'CDR =>
-        if PAIRP QCDR loc
+        if CONSP QCDR loc
           then RPLACD(loc,[var])
           else RPLACD(loc,var)
       SAY '"whoops"
-- 
cgit v1.2.3