aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2012-10-27 14:53:47 +0200
committerLudovic Courtès <ludo@gnu.org>2012-10-27 14:53:47 +0200
commit5e6c90121f88b05b6d61e2b36aa27f5f4ce21bcd (patch)
treeb1cd9be14179af9ee35090295581eecad803a1b3
parentd25468bcb2772ac10efb2ae7035250af20e19c85 (diff)
downloadguix-5e6c90121f88b05b6d61e2b36aa27f5f4ce21bcd.tar
guix-5e6c90121f88b05b6d61e2b36aa27f5f4ce21bcd.tar.gz
location: Start column numbers at 1.
* guix/utils.scm (source-properties->location): Use COL + 1.
-rw-r--r--guix/utils.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/utils.scm b/guix/utils.scm
index d0a09c9f5c..2c905cafb7 100644
--- a/guix/utils.scm
+++ b/guix/utils.scm
@@ -662,4 +662,5 @@ etc."
(let ((file (assq-ref loc 'filename))
(line (assq-ref loc 'line))
(col (assq-ref loc 'column)))
- (location file (and line (+ line 1)) col)))
+ ;; In accordance with the GCS, start line and column numbers at 1.
+ (location file (and line (+ line 1)) (and col (+ col 1)))))