mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 13:00:34 +02:00
Code Activity

(scm_call_with_output_string): scm_get_output_string

Browse source 
rather than scm_strport_to_string, so as to guard against the port
having been closed by the called procedure.
This commit is contained in:
Kevin Ryde 2003-10-01 23:32:09 +00:00
parent c91207a1b2
commit 5486021ac3
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/strports.c
View file

@ -363,7 +363,7 @@ SCM_DEFINE (scm_call_with_output_string, "call-with-output-string", 1, 0, 0,
FUNC_NAME); FUNC_NAME);
scm_call_1 (proc, p); scm_call_1 (proc, p);
return scm_strport_to_string (p); return scm_get_output_string (p);
} }
#undef FUNC_NAME #undef FUNC_NAME