Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-09 22:17:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Removed debug lines

Browse source
This commit is contained in:
Justin Ethier 2015-04-17 22:20:09 -04:00
parent 897e310d44
commit 178c5f622f
2 changed files with 0 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
TODO
View file

@ -1,7 +1,6 @@
Working TODO list: Working TODO list:
- need to cleanup ex handler output in icyc.scm - 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 - * / - 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 - need an error() function that will call (error) from the C runtime

6
runtime.h
View file

@ -1258,15 +1258,9 @@ object Cyc_current_exception_handler() {
/* Raise an exception from the runtime code */ /* Raise an exception from the runtime code */
void Cyc_rt_raise(object err) { void Cyc_rt_raise(object err) {
//printf("DEBUG err = ");
//Cyc_display(err);
//printf("\n");
make_cons(c2, err, nil); make_cons(c2, err, nil);
make_cons(c1, boolean_f, &c2); make_cons(c1, boolean_f, &c2);
make_cons(c0, &c1, nil); make_cons(c0, &c1, nil);
//printf("sending to apply => ");
//Cyc_display(&c0);
//printf("\n");
apply(nil, Cyc_current_exception_handler(), &c0); apply(nil, Cyc_current_exception_handler(), &c0);
// Should never get here // Should never get here
fprintf(stderr, "Internal error in Cyc_rt_raise\n"); fprintf(stderr, "Internal error in Cyc_rt_raise\n");