mirror of
https://github.com/justinethier/cyclone.git
synced 2025-07-09 22:17:33 +02:00
Removed debug lines
This commit is contained in:
parent
897e310d44
commit
178c5f622f
2 changed files with 0 additions and 7 deletions
1
TODO
1
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
|
||||
|
|
|
@ -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");
|
||||
|
|
Loading…
Add table
Reference in a new issue