altos/lisp: Dump globals on error
[fw/altos] / src / lisp / ao_lisp_error.c
index 2b15c4184c99f4ef24565366fcc2cde93166e90b..7ad7b2b523f8cf0fde6c3dc4038f8404b86a66b6 100644 (file)
@@ -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;
 }