From 5486021ac321f35e405bc763fd469d95267f6fc0 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Wed, 1 Oct 2003 23:32:09 +0000
Subject: [PATCH] (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.

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

diff --git a/libguile/strports.c b/libguile/strports.c
index e3ed62f85..5b5dbcb2e 100644
--- a/libguile/strports.c
+++ b/libguile/strports.c
@@ -363,7 +363,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