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

Removed dead code

Browse source
This commit is contained in:
Justin Ethier 2015-03-23 22:22:39 -04:00
parent 1c4f0544a1
commit e73155586f
1 changed files with 1 additions and 42 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
runtime.h
View file

@ -457,54 +457,13 @@ static void clear_mutations() {
/* END mutation table */ /* END mutation table */
/* Exception handler */ /* Exception handler */
/* static object Cyc_default_exception_handler(int argc, closure _, object err) {
notes:
- with-exception-handler, need to:
* GOOD case (no exception is raised): install new exception handler, execute thunk, uninstall ex handler, and return value from thunk
* EX raised - install new ex handler, execute thunk, uninstall handler, call handler, and throw 2nd exception if handler returns
- if a handler returns, a second exception is raised. how to handle that?
*/
list exception_handler_stack = nil;
static object Cyc_default_exception_handler(int argc, closure _, /*object k,*/ object err) {
printf("Error: "); printf("Error: ");
Cyc_display(err); Cyc_display(err);
printf("\n"); printf("\n");
exit(1); exit(1);
return nil; return nil;
} }
// TODO: does this cause GC problems? for example, what if handler is on the stack??
// putting all of this in the scheme code could help solve that problem
//
// TODO: not sure this is the best approach, may be able to do this in
// Scheme code, but for now do add/remove this way:
// static object Cyc_add_exception_handler(object handler) {
// printf("DEBUG: add ex handler\n");
// // TODO: error checking on handler?
// exception_handler_stack = mcons(handler, exception_handler_stack);
// return handler;
// }
// static object Cyc_remove_exception_handler(){
// object old_cons = exception_handler_stack;
// printf("DEBUG: remove ex handler\n");
//
// if (nullp(exception_handler_stack)) {
// printf("Internal error, no exception handler to remove\n");
// exit(1);
// }
// exception_handler_stack = cdr(exception_handler_stack);
// free(old_cons);
// return exception_handler_stack;
// }
// // END TODO
//
// static object Cyc_current_exception_handler() {
// return car(exception_handler_stack);
// }
//
/* END exception handler */ /* END exception handler */
/* Global variables. */ /* Global variables. */