X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_rep.c;h=3be95d44d89ecda6eaea21b86a715d7fd97b1a9e;hb=ec963d358895ae46af63d2a6e9a32bdfb4d631c0;hp=ef7dbaf283db697f0c0e0f0c34e6c5831a0e90ed;hpb=92cdc0cf0e80c1ff3f31cce20fc2b9bda86e3638;p=fw%2Faltos diff --git a/src/lisp/ao_lisp_rep.c b/src/lisp/ao_lisp_rep.c index ef7dbaf2..3be95d44 100644 --- a/src/lisp/ao_lisp_rep.c +++ b/src/lisp/ao_lisp_rep.c @@ -20,7 +20,7 @@ ao_lisp_read_eval_print(void) ao_poly in, out = AO_LISP_NIL; for(;;) { in = ao_lisp_read(); - if (in == _ao_lisp_atom_eof) + if (in == _ao_lisp_atom_eof || in == AO_LISP_NIL) break; out = ao_lisp_eval(in); if (ao_lisp_exception) {