When WM_QUIT is posted to the PM message queue, kill the Scheme

program.  This normally happens at one of two times: (1) the user
clicks on "close" in the pop-up menu in the window list, and (2) the
system is shutting down.

diff --git a/v7/src/microcode/os2pm.c b/v7/src/microcode/os2pm.c
index 7092de69ecae780c2711162f9f348b54c2b45e7a..d9e2aa0e1b481968023994142ad59fe475313f5d 100644 (file)
--- a/v7/src/microcode/os2pm.c
+++ b/v7/src/microcode/os2pm.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: os2pm.c,v 1.10 1995/05/06 23:01:05 cph Exp $
+$Id: os2pm.c,v 1.11 1995/05/07 05:52:34 cph Exp $
 
 Copyright (c) 1994-95 Massachusetts Institute of Technology
 
@@ -1032,6 +1032,10 @@ pm_thread_procedure (void * arg)
     window_error (WinDestroyWindow);
   WinDestroyMsgQueue (pm_hmq);
   WinTerminate (pm_hab);
+  /* There's no way to exit properly, because the normal exit depends
+     on the PM thread being active enough to print the closing
+     messages.  So just use exit.  */
+  exit (1);
 }
 
 static tqueue_t *