void termination_end_of_computation (void) { termination_prefix (TERM_END_OF_COMPUTATION); Print_Expression (GET_VAL, "Final result"); outf_console("\n"); termination_suffix (TERM_END_OF_COMPUTATION, 0, false); }
void debug_examine_memory (long address, const char * label) { Print_Expression ((* ((SCHEME_OBJECT *) address)), ((char *) label)); }