From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Tue, 4 Feb 1992 18:52:59 +0000 (+0000)
Subject: Fix GC bug in OPERATION/CLOSE in X graphics type.
X-Git-Tag: 20090517-FFI~9870
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b0adc64de60e2b4b3201767391dc342a96ed0b52;p=mit-scheme.git

Fix GC bug in OPERATION/CLOSE in X graphics type.
---

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