From ec638405045d33d48476ab85edf09a2e1756e3e3 Mon Sep 17 00:00:00 2001 From: Keith Packard Date: Sun, 10 Dec 2017 18:35:53 -0800 Subject: altos/scheme: Allow ao_scheme_read_eval_print to be restarted Reset exceptions at the top so that we can call it more than once. Signed-off-by: Keith Packard --- src/scheme/ao_scheme_rep.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/scheme/ao_scheme_rep.c') diff --git a/src/scheme/ao_scheme_rep.c b/src/scheme/ao_scheme_rep.c index 9dbce5f2..5b94d940 100644 --- 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) -- cgit v1.2.3