Commit baa5bc8b authored by sewardj's avatar sewardj
Browse files

[project @ 1999-11-12 14:32:44 by sewardj]

Install control-c signal handler in interpreter() after call to
initialize, since that calls startupHaskell, which trashes previous
signal settings.
parent 7f0885ba
......@@ -9,8 +9,8 @@
* included in the distribution.
*
* $RCSfile: hugs.c,v $
* $Revision: 1.17 $
* $Date: 1999/11/09 00:40:11 $
* $Revision: 1.18 $
* $Date: 1999/11/12 14:32:44 $
* ------------------------------------------------------------------------*/
#include <setjmp.h>
......@@ -576,7 +576,9 @@ String s; { /* return FALSE if none found. */
default : if (strcmp("98",s)==0) {
if (heapBuilt() && ((state && !haskell98) ||
(!state && haskell98))) {
FPrintf(stderr,"Haskell 98 compatibility cannot be changed while the interpreter is running\n");
FPrintf(stderr,
"Haskell 98 compatibility cannot be changed"
" while the interpreter is running\n");
} else {
haskell98 = state;
}
......@@ -1900,6 +1902,9 @@ String argv[]; {
forHelp();
}
/* initialize calls startupHaskell, which trashes our signal handlers */
breakOn(TRUE);
for (;;) {
Command cmd;
everybody(RESET); /* reset to sensible initial state */
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment