void debug_back_trace (outf_channel stream) { outf (stream, "*** Scheme Microcode Back Trace: ***\n"); Back_Trace (stream); outf (stream, "*** End of Back Trace ***\n"); outf_flush (stream); }
static void termination_suffix_trace (int code) { if (Trace_On_Error) { outf_error ("\n\n**** Stack trace ****\n\n"); Back_Trace (ERROR_OUTPUT); } termination_suffix (code, 1, true); }