Example #1
0
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);
}
Example #2
0
void
debug_examine_memory (long address, const char * label)
{
  Print_Expression ((* ((SCHEME_OBJECT *) address)), ((char *) label));
}