summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2014-03-19 17:55:20 -0400
committerMark H Weaver <mhw@netris.org>2014-03-19 17:55:20 -0400
commite26ab067b2073c1eb5ace13d069674515b9f97c6 (patch)
tree4c20c44db92b7c79e3264eb182b29e972c5f0809
parent2be7131ee0c38336483226657872a8faa62a2562 (diff)
downloadguile-e26ab067b2073c1eb5ace13d069674515b9f97c6.tar.gz
simple-format: Don't assume the current output port is valid.
* libguile/print.c (scm_simple_format): Validate the current output port.
-rw-r--r--libguile/print.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/print.c b/libguile/print.c
index ae98af405..60683b517 100644
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -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))
{