diff options
| -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]]] |