From 2def6abebb3d14a29fe0e03bac09b9d74d2d1578 Mon Sep 17 00:00:00 2001
From: Keith Packard <keithp@keithp.com>
Date: Mon, 18 Dec 2017 02:08:23 -0800
Subject: [PATCH] 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>
---
 src/scheme/ao_scheme_poly.c | 1 +
 1 file changed, 1 insertion(+)

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