diff options
| author | Keith Packard <keithp@keithp.com> | 2017-12-10 18:35:53 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2017-12-11 12:20:25 -0800 |
| commit | ec638405045d33d48476ab85edf09a2e1756e3e3 (patch) | |
| tree | 03b3f559fe0a20779091d7e155d7558d8f2ac588 /src/scheme/ao_scheme_rep.c | |
| parent | 8ebecd364fd328e9c649c11729bddf58731aaafb (diff) | |
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 <keithp@keithp.com>
Diffstat (limited to 'src/scheme/ao_scheme_rep.c')
| -rw-r--r-- | src/scheme/ao_scheme_rep.c | 2 |
1 files changed, 2 insertions, 0 deletions
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) |