[Guile-commits] GNU Guile branch, master, updated. release_1-9-0-5-g8806afa

[Andy Wingo]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=8806afa7dd0582f774daadafbe6ec8163b2deea8

The branch, master has been updated
       via  8806afa7dd0582f774daadafbe6ec8163b2deea8 (commit)
      from  179fe3363241ea1aeb48f1f63d13d2dd12196dcf (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 8806afa7dd0582f774daadafbe6ec8163b2deea8
Author: Andy Wingo <address@hidden>
Date:   Sun Jun 21 12:41:46 2009 +0200

    Fix crash when marking closed custom bytevector port
    
    * libguile/r6rs-ports.c (cbp_mark): A closed port will have had its
      stream destroyed, so don't dereference the stream in that case. Patch by
      Mike Gran.

-----------------------------------------------------------------------

Summary of changes:
 libguile/r6rs-ports.c |    5 ++++-
 1 files changed, 4 insertions(+), 1 deletions(-)

diff --git a/libguile/r6rs-ports.c b/libguile/r6rs-ports.c
index f10afe6..d77c214 100644
--- a/libguile/r6rs-ports.c
+++ b/libguile/r6rs-ports.c
@@ -211,7 +211,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


hooks/post-receive
-- 
GNU Guile