From: Keith Packard <keithp@keithp.com>
Date: Mon, 18 Dec 2017 10:08:23 +0000 (-0800)
Subject: altos/scheme: abort when we try to print an invalid value
X-Git-Tag: 1.8.4~1^2~19
X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=commitdiff_plain;h=2def6abebb3d14a29fe0e03bac09b9d74d2d1578

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 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 = {