diff options
| author | Keith Packard <keithp@keithp.com> | 2016-11-17 16:06:05 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2016-11-17 22:18:39 -0800 |
| commit | c078787a66d56a1e8191501614f66467d68a70d2 (patch) | |
| tree | 8562640fc7ae60a3e29ff68a3a2ac96dc843c45e | |
| parent | 238da83903e6eec97534836680673112b44b112a (diff) | |
altos/lisp: Dump globals on error
Useful for debugging
Signed-off-by: Keith Packard <keithp@keithp.com>
| -rw-r--r-- | src/lisp/ao_lisp_error.c | 3 |
1 files changed, 3 insertions, 0 deletions
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; } |