Skip to content
Snippets Groups Projects
Commit 7fbcd958 authored by dtc's avatar dtc
Browse files

No longer need the my_error_stuff_ok hacks.

parent b7bee23b
No related branches found
No related tags found
No related merge requests found
/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/interrupt.c,v 1.7 1997/02/05 18:01:15 pw Exp $ */ /* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/interrupt.c,v 1.8 1997/02/18 01:16:11 dtc Exp $ */
/* Interrupt handing magic. */ /* Interrupt handing magic. */
...@@ -26,7 +26,6 @@ ...@@ -26,7 +26,6 @@
#include "interr.h" #include "interr.h"
boolean internal_errors_enabled = 0; boolean internal_errors_enabled = 0;
boolean my_error_stuff_ok = 1;
struct sigcontext *lisp_interrupt_contexts[MAX_INTERRUPTS]; struct sigcontext *lisp_interrupt_contexts[MAX_INTERRUPTS];
...@@ -175,7 +174,7 @@ interrupt_internal_error(HANDLER_ARGS, ...@@ -175,7 +174,7 @@ interrupt_internal_error(HANDLER_ARGS,
sigsetmask(context->sc_mask); sigsetmask(context->sc_mask);
#endif #endif
fake_foreign_function_call(context); fake_foreign_function_call(context);
if (internal_errors_enabled && my_error_stuff_ok) if (internal_errors_enabled)
funcall2(SymbolFunction(INTERNAL_ERROR), alloc_sap(context), funcall2(SymbolFunction(INTERNAL_ERROR), alloc_sap(context),
continuable ? T : NIL); continuable ? T : NIL);
else else
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment