mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

simple-format: Don't assume the current output port is valid.

Browse source 
* libguile/print.c (scm_simple_format): Validate the current output
  port.
This commit is contained in:
Mark H Weaver 2014-03-19 17:55:20 -04:00
parent 2be7131ee0
commit e26ab067b2
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/print.c
View file

@ -1468,6 +1468,7 @@ SCM_DEFINE (scm_simple_format, "simple-format", 2, 0, 1,
if (scm_is_eq (destination, SCM_BOOL_T))
{
destination = port = scm_current_output_port ();
SCM_VALIDATE_OPORT_VALUE (0, destination);
}
else if (scm_is_false (destination))
{