diff options
Diffstat (limited to 'module/ice-9/format.scm')
-rw-r--r-- | module/ice-9/format.scm | 3 |
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) |