diff --git a/TODO b/TODO index 8f114a9a..0f8d85d7 100644 --- a/TODO +++ b/TODO @@ -1,7 +1,6 @@ Working TODO list: - need to cleanup ex handler output in icyc.scm - remove debug lines from runtime raise function - Fixup Cyc_sum to use varargs and call (error) if anything bad happens. then generalize to - * / - need an error() function that will call (error) from the C runtime diff --git a/runtime.h b/runtime.h index 4ecdf042..2571a86d 100644 --- a/runtime.h +++ b/runtime.h @@ -1258,15 +1258,9 @@ object Cyc_current_exception_handler() { /* Raise an exception from the runtime code */ void Cyc_rt_raise(object err) { - //printf("DEBUG err = "); - //Cyc_display(err); - //printf("\n"); make_cons(c2, err, nil); make_cons(c1, boolean_f, &c2); make_cons(c0, &c1, nil); - //printf("sending to apply => "); - //Cyc_display(&c0); - //printf("\n"); apply(nil, Cyc_current_exception_handler(), &c0); // Should never get here fprintf(stderr, "Internal error in Cyc_rt_raise\n");