From d778d5ee0592523c5b532151444b863dc476410a Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Mon, 25 Sep 1995 20:54:10 +0000
Subject: [PATCH] Fixed bug with windows closed by user between last GC and
 exiting.

---
 v7/src/win32/graphics.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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)
 
-- 
2.25.1