From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Mon, 25 Sep 1995 20:54:10 +0000 (+0000)
Subject: Fixed bug with windows closed by user between last GC and exiting.
X-Git-Tag: 20090517-FFI~5936
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d778d5ee0592523c5b532151444b863dc476410a;p=mit-scheme.git

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 85d91febb..fe20137be 100644
--- 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)