diff --git a/TODO b/TODO index 488a5fa1..5f30cbfe 100644 --- a/TODO +++ b/TODO @@ -15,6 +15,8 @@ Working TODO list: cyclone> (write-char 1) Error: + This it might be an issue with rt_raise2, perhaps this line: + make_cons(c0, &c1, nil); - Constructs require for self-hosting diff --git a/runtime.c b/runtime.c index e052b6d5..f556465c 100644 --- a/runtime.c +++ b/runtime.c @@ -185,7 +185,7 @@ object Cyc_current_exception_handler() { void Cyc_rt_raise(object err) { make_cons(c2, err, nil); make_cons(c1, boolean_f, &c2); - make_cons(c0, &c1, nil); + make_cons(c0, &c1, nil); // TODO: seems broken? apply(nil, Cyc_current_exception_handler(), &c0); // Should never get here fprintf(stderr, "Internal error in Cyc_rt_raise\n");