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 | |
| 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>
| -rw-r--r-- | src/scheme/ao_scheme_rep.c | 2 | ||||
| -rw-r--r-- | src/scheme/test/Makefile | 3 |
2 files changed, 5 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) diff --git a/src/scheme/test/Makefile b/src/scheme/test/Makefile index 9d39d33e..c48add1f 100644 --- a/src/scheme/test/Makefile +++ b/src/scheme/test/Makefile @@ -17,3 +17,6 @@ $(OBJS): $(SCHEME_HDRS) clean:: rm -f $(OBJS) ao_scheme_test + +install: ao_scheme_test + cp ao_scheme_test $$HOME/bin/ao-scheme |