diff options
Diffstat (limited to 'libguile/print.c')
| -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 b79eb3ffe..684b3d410 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -1549,6 +1549,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 (1, destination); } else if (scm_is_false (destination)) { |