From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 7 Nov 2003 20:35:48 +0000 (+0000)
Subject: Make sure channel is appropriately marked when it is closed.
X-Git-Tag: 20090517-FFI~1760
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5e452aeaa904d80941332d535a11e5cd557b5846;p=mit-scheme.git

Make sure channel is appropriately marked when it is closed.
---

diff --git a/v7/src/runtime/io.scm b/v7/src/runtime/io.scm
index 61fc928e2..9b901c567 100644
--- a/v7/src/runtime/io.scm
+++ b/v7/src/runtime/io.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: io.scm,v 14.73 2003/06/08 04:07:40 cph Exp $
+$Id: io.scm,v 14.74 2003/11/07 20:35:48 cph Exp $
 
 Copyright 1986,1987,1988,1990,1991,1993 Massachusetts Institute of Technology
 Copyright 1994,1995,1998,1999,2000,2001 Massachusetts Institute of Technology
@@ -83,6 +83,7 @@ USA.
 	(eq? 'OS/2-CONSOLE type))))
 
 (define (channel-close channel)
+  (set-channel-descriptor! channel #f)
   (remove-from-gc-finalizer! open-channels channel))
 
 (define-integrable (channel-open? channel)