summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNeil Jerram <neil@ossau.uklinux.net>2011-05-12 23:16:05 +0100
committerNeil Jerram <neil@ossau.uklinux.net>2011-05-26 17:58:18 +0100
commit153c4a4afa4ca3ae6020a0d5ec34bbe62a62c568 (patch)
tree43248c8a2f7d5c3ab6501c9b671df48e50eca1f6
parent9228f9eb956e8a7588c315239511fc4e08e16553 (diff)
downloadguile-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.scm2
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!