From 184b85a394e686900b87d08cd718bc8c9e2c43d8 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Thu, 2 Oct 2003 00:04:26 +0000
Subject: [PATCH] (s_scm_call_with_output_string): scm_get_output_string rather
 than scm_strport_to_string, so as to guard against the port having been
 closed by the called procedure.  Reported by Nic Ferrier.

---
 libguile/strports.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/strports.c b/libguile/strports.c
index db43c3cf8..f718c07cb 100644
--- a/libguile/strports.c
+++ b/libguile/strports.c
@@ -333,7 +333,7 @@ SCM_DEFINE (scm_call_with_output_string, "call-with-output-string", 1, 0, 0,
                      FUNC_NAME);
   scm_call_1 (proc, p);
 
-  return scm_strport_to_string (p);
+  return scm_get_output_string (p);
 }
 #undef FUNC_NAME