# HG changeset patch
# User wenzelm
# Date 1194794662 -3600
# Node ID e7ddcf8bcf9a2b6dd810819f089a3c068f235292
# Parent  e83bef45e6a7003c0830e26ec10d1e382b6eb020
restore interrupt handler on init;

diff -r e83bef45e6a7 -r e7ddcf8bcf9a lib/scripts/run-polyml-5.1
--- a/lib/scripts/run-polyml-5.1	Sun Nov 11 14:17:15 2007 +0100
+++ b/lib/scripts/run-polyml-5.1	Sun Nov 11 16:24:22 2007 +0100
@@ -48,7 +48,7 @@
   EXIT="fun exit 0 = (OS.Process.exit OS.Process.success): unit | exit _ = OS.Process.exit OS.Process.failure;"
 else
   check_file "$INFILE"
-  INIT="PolyML.SaveState.loadState \"$INFILE\";"
+  INIT="(Signal.signal (2, Signal.SIG_HANDLE (fn _ => Process.interruptConsoleProcesses ())); PolyML.SaveState.loadState \"$INFILE\");"
   EXIT=""
 fi