diff options
author | Neil Jerram <neil@ossau.uklinux.net> | 2011-05-12 23:16:05 +0100 |
---|---|---|
committer | Neil Jerram <neil@ossau.uklinux.net> | 2011-05-26 17:58:18 +0100 |
commit | 153c4a4afa4ca3ae6020a0d5ec34bbe62a62c568 (patch) | |
tree | 43248c8a2f7d5c3ab6501c9b671df48e50eca1f6 | |
parent | 9228f9eb956e8a7588c315239511fc4e08e16553 (diff) | |
download | guile-153c4a4afa4ca3ae6020a0d5ec34bbe62a62c568.tar.gz |
Emit a 1-based line number in error messages
* module/ice-9/boot-9.scm (exception-printers): Add 1 to the 0-based
line number.
-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! |