This commit is contained in:
Justin Ethier 2015-06-11 23:02:59 -04:00
parent 3b121a059d
commit 955b58b1a5
2 changed files with 3 additions and 1 deletions

2
TODO
View file

@ -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

View file

@ -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");