altos/lisp: Dump globals on error

Useful for debugging

Signed-off-by: Keith Packard <keithp@keithp.com>

diff --git a/src/lisp/ao_lisp_error.c b/src/lisp/ao_lisp_error.c
index 2b15c4184c99f4ef24565366fcc2cde93166e90b..7ad7b2b523f8cf0fde6c3dc4038f8404b86a66b6 100644 (file)
--- 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;
 }