diff options
author | Mark H Weaver <mhw@netris.org> | 2014-03-19 17:55:20 -0400 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2014-03-19 17:55:20 -0400 |
commit | e26ab067b2073c1eb5ace13d069674515b9f97c6 (patch) | |
tree | 4c20c44db92b7c79e3264eb182b29e972c5f0809 | |
parent | 2be7131ee0c38336483226657872a8faa62a2562 (diff) | |
download | guile-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.c | 1 |
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)) { |