From 30bc75ae46cb34d6c7306f1f5fd8937766c3f255 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 21 Jun 2009 16:05:27 +0200
Subject: [PATCH] Don't mark closed custom binary ports.

Patch from Guile `master' by Andy/Mike.
---
 src/ports.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/ports.c b/src/ports.c
index c37dcea..079d50a 100644
--- a/src/ports.c
+++ b/src/ports.c
@@ -225,7 +225,10 @@ static SCM
 cbp_mark (SCM port)
 {
   /* Mark the underlying method and object vector.  */
-  return (SCM_PACK (SCM_STREAM (port)));
+  if (SCM_OPENP (port))
+    return SCM_PACK (SCM_STREAM (port));
+  else
+    return SCM_BOOL_F;
 }
 
 static off_t
-- 
2.11.4.GIT