From 6640c96750a315d4298bb09afa5438391d56126a Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 7 Aug 2011 05:11:20 +0000
Subject: more cleanups

---
 src/interp/lisp-backend.boot | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/interp/lisp-backend.boot')

diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot
index bd6aa7f5..8426a531 100644
--- a/src/interp/lisp-backend.boot
+++ b/src/interp/lisp-backend.boot
@@ -61,10 +61,10 @@ expandIN(x,l,early?) ==
   early? =>               -- give the loop variable a wider scope.
     [[[g,middleEndExpand l],[x,'NIL]],
       nil,[['SETQ,g,['CDR,g]]],
-        nil,[['ATOM,g],['PROGN,['SETQ,x,['CAR,g]],'NIL]]]
+        nil,[['NOT,['CONSP,g]],['PROGN,['SETQ,x,['CAR,g]],'NIL]]]
   [[[g,middleEndExpand l]],
     [[x,['CAR,g]]],[['SETQ,g,['CDR,g]]],
-      nil,[['ATOM,g]]]
+      nil,[['NOT,['CONSP,g]]]]
 
 expandON(x,l) ==
   [[[x,middleEndExpand l]],nil,[["SETQ",x,["CDR",x]]],nil,[["ATOM",x]]]
-- 
cgit v1.2.3