diff options
| author | Keith Packard <keithp@keithp.com> | 2017-12-18 02:08:23 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2017-12-18 02:08:23 -0800 |
| commit | 2def6abebb3d14a29fe0e03bac09b9d74d2d1578 (patch) | |
| tree | 41159dc58b0d65cf0bbc2f2dc1373f6905c015e8 | |
| parent | e1a6b3bf458f311d832aea7eec34935d42f8efed (diff) | |
altos/scheme: abort when we try to print an invalid value
This can catch a host of interpreter bugs; best to abandon the program
when it happens.
Signed-off-by: Keith Packard <keithp@keithp.com>
| -rw-r--r-- | src/scheme/ao_scheme_poly.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/scheme/ao_scheme_poly.c b/src/scheme/ao_scheme_poly.c index 2ea221ec..70e577a2 100644 --- a/src/scheme/ao_scheme_poly.c +++ b/src/scheme/ao_scheme_poly.c @@ -82,6 +82,7 @@ static const struct ao_scheme_funcs ao_scheme_funcs[AO_SCHEME_NUM_TYPE] = { static void ao_scheme_invalid_write(ao_poly p) { printf("??? 0x%04x ???", p); + ao_scheme_abort(); } static const struct ao_scheme_funcs ao_scheme_invalid_funcs = { |