void scan_postmortem_dump()
{
#if 0
lref_t oport = CURRENT_DEBUG_PORT();
for(frame_t *frame = CURRENT_TIB()->frame;
frame != NULL;
frame = frame->prev_frame)
{
scwritef(_T("\n*** FRAME=~cd: "), oport, frame);
switch (frame->type)
{
case FRAME_EVAL:
scwritef(_T("eval > ~s in ~s\n"), oport, *frame->as.eval.form,
frame->as.eval.initial_form);
break;
case FRAME_ESCAPE:
scwritef(_T("try > ~s\n"), oport, frame->as.escape.tag);
break;
case FRAME_UNWIND:
scwritef(_T("unwind-protect >\n"), oport);
break;
case FRAME_SUBR:
scwritef(_T("subr > ~s\n"), oport, frame->as.subr.subr);
break;
default:
scwritef(_T("<< INVALID-FRAME-TYPE >>\n"), oport);
break;
}
lflush_port(oport);
}
#endif
}
lref_t ldebug_write(lref_t form)
{
debug_print_object(form, CURRENT_DEBUG_PORT(), true);
return lnewline(CURRENT_DEBUG_PORT());
}
