From b0adc64de60e2b4b3201767391dc342a96ed0b52 Mon Sep 17 00:00:00 2001
From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Tue, 4 Feb 1992 18:52:59 +0000
Subject: [PATCH] Fix GC bug in OPERATION/CLOSE in X graphics type.

---
 v7/src/runtime/x11graph.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/x11graph.scm b/v7/src/runtime/x11graph.scm
index ca2f2caa0..a8a584cf3 100644
--- a/v7/src/runtime/x11graph.scm
+++ b/v7/src/runtime/x11graph.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/x11graph.scm,v 1.13 1992/01/30 00:38:45 arthur Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/x11graph.scm,v 1.14 1992/02/04 18:52:59 arthur Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -221,7 +221,9 @@ MIT in each case. |#
 (define (operation/close device)
   (x-graphics-device/process-events! device)
   (x-close-window (x-graphics-device/window device))
-  (remove-from-protection-list! window-list device))
+  (remove-from-protection-list!
+   window-list
+   (graphics-device/descriptor device)))
 
 (define (close-lost-windows-daemon)
   (clean-lost-protected-objects window-list x-close-window))
-- 
2.25.1