From 84732aebd10c293101727ba567bfc733dc30efca Mon Sep 17 00:00:00 2001
From: Keith Packard <keithp@keithp.com>
Date: Thu, 17 Nov 2016 16:06:05 -0800
Subject: [PATCH] altos/lisp: Dump globals on error

Useful for debugging

Signed-off-by: Keith Packard <keithp@keithp.com>
---
 src/lisp/ao_lisp_error.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/lisp/ao_lisp_error.c b/src/lisp/ao_lisp_error.c
index 2b15c418..7ad7b2b5 100644
--- a/src/lisp/ao_lisp_error.c
+++ b/src/lisp/ao_lisp_error.c
@@ -106,5 +106,8 @@ ao_lisp_error(int error, char *format, ...)
 	va_end(args);
 	printf("\n");
 	ao_lisp_stack_print();
+	printf("Globals:\n\t");
+	ao_lisp_frame_print(ao_lisp_frame_poly(ao_lisp_frame_global));
+	printf("\n");
 	return AO_LISP_NIL;
 }
-- 
2.30.2