From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 7 May 1995 05:52:34 +0000 (+0000)
Subject: When WM_QUIT is posted to the PM message queue, kill the Scheme
X-Git-Tag: 20090517-FFI~6330
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=89ce00cacd50f955d8d73c975e060927d70bf647;p=mit-scheme.git

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 7092de69e..d9e2aa0e1 100644
--- 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 *