Fixed bug with windows closed by user between last GC and exiting.

diff --git a/v7/src/win32/graphics.scm b/v7/src/win32/graphics.scm
index 85d91febb6194d00c1310e6efbfbee9892c27e71..fe20137beb375b03d188ba4b3d4d67919c5bd403 100644 (file)
--- a/v7/src/win32/graphics.scm
+++ b/v7/src/win32/graphics.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: graphics.scm,v 1.8 1995/06/28 01:59:38 adams Exp $
+$Id: graphics.scm,v 1.9 1995/09/25 20:54:10 adams Exp $
 
 Copyright (c) 1993-95 Massachusetts Institute of Technology
 
@@ -642,7 +642,8 @@ MIT in each case. |#
 
 
 (define (close-descriptor des)
-  (if des
+  (if (and des
+          (win32-device/hwnd des))
       (send-message (win32-device/hwnd des) WM_CLOSE 0 0))
   unspecific)