diff options
-rw-r--r-- | module/ice-9/boot-9.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index 539eac9f7..1d1452109 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -682,7 +682,7 @@ If there is no handler at all, Guile prints an error and then exits." (let ((filename (or (cadr source) "<unnamed port>")) (line (caddr source)) (col (cdddr source))) - (format port "~a:~a:~a: " filename line col)) + (format port "~a:~a:~a: " filename (1+ line) col)) (format port "ERROR: ")))) (set! set-exception-printer! |