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

(limited to 'src/interp/i-toplev.boot')

diff --git a/src/interp/i-toplev.boot b/src/interp/i-toplev.boot
index c05893f4..0a9563b3 100644
--- a/src/interp/i-toplev.boot
+++ b/src/interp/i-toplev.boot
@@ -302,7 +302,7 @@ interpretTopLevel(x, posnForm) ==
   c
 
 interpret(x, :restargs) ==
-  posnForm := if PAIRP restargs then CAR restargs else restargs
+  posnForm := if CONSP restargs then CAR restargs else restargs
   --type analyzes and evaluates expression x, returns object
   $env:local := [[nil]]
   $eval:local := true           --generate code-- don't just type analyze
-- 
cgit v1.2.3