mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-08 22:42:26 +02:00
Code Activity

(s_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.  Reported by Nic Ferrier.
This commit is contained in:
Kevin Ryde 2003-10-02 00:04:26 +00:00
parent 930d3b37a8
commit 184b85a394
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

@ -333,7 +333,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