diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-08-07 05:11:20 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-08-07 05:11:20 +0000 |
| commit | 6640c96750a315d4298bb09afa5438391d56126a (patch) | |
| tree | 6d4a0522c313220e095def9f1505f9e3d1e9ae41 | |
| parent | 0f2dfec8f5bcec44fad342e8f060ed725ddeb889 (diff) | |
| download | open-axiom-6640c96750a315d4298bb09afa5438391d56126a.tar.gz | |
more cleanups
| -rw-r--r-- | src/interp/lisp-backend.boot | 4 |
1 files changed, 2 insertions, 2 deletions
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]]] |