altos/scheme: Allow ao_scheme_read_eval_print to be restarted

[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..5b94d9401302e5b9fddb091c0336064d744ab116 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)