static SCM scscm_printing_pre_unwind_handler (void *data, SCM key, SCM args) { SCM stack = scm_make_stack (SCM_BOOL_T, scm_list_1 (scm_from_int (2))); gdbscm_print_exception_with_stack (SCM_BOOL_F, stack, key, args); return SCM_UNSPECIFIED; }
void gdbscm_print_gdb_exception (SCM port, SCM exception) { gdb_assert (gdbscm_is_exception (exception)); gdbscm_print_exception_with_stack (port, SCM_BOOL_T, gdbscm_exception_key (exception), gdbscm_exception_args (exception)); }