altos/scheme: Rework display/write code

[fw/altos] / src / scheme / ao_scheme_rep.c

diff --git a/src/scheme/ao_scheme_rep.c b/src/scheme/ao_scheme_rep.c
index 9dbce5f2476d8bd57e7ba765b81f2e387fe1453d..b35ba5b8da796a21b7f4b2722b52ca468d2f3708 100644 (file)
--- a/src/scheme/ao_scheme_rep.c
+++ b/src/scheme/ao_scheme_rep.c
@@ -18,6 +18,8 @@ ao_poly
 ao_scheme_read_eval_print(void)
 {
        ao_poly in, out = AO_SCHEME_NIL;
+
+       ao_scheme_exception = 0;
        for(;;) {
                in = ao_scheme_read();
                if (in == _ao_scheme_atom_eof)
@@ -28,7 +30,7 @@ ao_scheme_read_eval_print(void)
                                break;
                        ao_scheme_exception = 0;
                } else {
-                       ao_scheme_poly_write(out);
+                       ao_scheme_poly_write(out, true);
                        putchar ('\n');
                }
        }