From 5e6c90121f88b05b6d61e2b36aa27f5f4ce21bcd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sat, 27 Oct 2012 14:53:47 +0200
Subject: [PATCH] location: Start column numbers at 1.

* guix/utils.scm (source-properties->location): Use COL + 1.
---
 guix/utils.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)))))