From 3c1750f377e0012dcb77b5226e5398de02110ad3 Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@red-bean.com>
Date: Wed, 3 Dec 1997 17:30:24 +0000
Subject: [PATCH] * ports.c (scm_close_port): Make sure the port is open before
 trying to close it.

---
 libguile/ports.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/libguile/ports.c b/libguile/ports.c
index a3d882730..49224beb4 100644
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -418,7 +418,8 @@ scm_close_port (port)
 
   port = SCM_COERCE_OUTPORT (port);
 
-  SCM_ASSERT (SCM_NIMP (port) && SCM_PORTP (port), port, SCM_ARG1, s_close_port);
+  SCM_ASSERT (SCM_NIMP (port) && SCM_OPPORTP (port), port, SCM_ARG1,
+	      s_close_port);
   if (SCM_CLOSEDP (port))
     return SCM_BOOL_F;
   i = SCM_PTOBNUM (port);