summaryrefslogtreecommitdiff
path: root/module/ice-9/format.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/ice-9/format.scm')
-rw-r--r--module/ice-9/format.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/module/ice-9/format.scm b/module/ice-9/format.scm
index 01da71e90..e53649866 100644
--- a/module/ice-9/format.scm
+++ b/module/ice-9/format.scm
@@ -49,7 +49,8 @@
((boolean? destination) (current-output-port)) ; boolean but not false
((output-port? destination) destination)
(else
- (error "format: bad destination `~a'" destination)))))
+ (error
+ (simple-format #f "format: bad destination `~a'" destination))))))
(define %output-col (or (port-column port) 0))
(define %flush-output? #f)