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>

diff --git a/src/scheme/ao_scheme_poly.c b/src/scheme/ao_scheme_poly.c
index 2ea221ec996e4404f726396fd096b7c4f0d8b507..70e577a2a7627f2bb2c9c80abe9dda8244533f07 100644 (file)
--- 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 = {