altos/lisp: Make read() return eof atom on end of file

[fw/altos] / src / lisp / ao_lisp_rep.c

diff --git a/src/lisp/ao_lisp_rep.c b/src/lisp/ao_lisp_rep.c
index d780186a2768e3fc633f22ca8174e352cee5d4ff..ef7dbaf283db697f0c0e0f0c34e6c5831a0e90ed 100644 (file)
--- a/src/lisp/ao_lisp_rep.c
+++ b/src/lisp/ao_lisp_rep.c
@@ -20,9 +20,8 @@ ao_lisp_read_eval_print(void)
        ao_poly in, out = AO_LISP_NIL;
        for(;;) {
                in = ao_lisp_read();
-               if (!in)
+               if (in == _ao_lisp_atom_eof)
                        break;
-//             printf ("in: "); ao_lisp_poly_print(in); printf("\n");
                out = ao_lisp_eval(in);
                if (ao_lisp_exception) {
                        ao_lisp_exception = 0;