1 files changed, 2 insertions(+), 1 deletions(-)

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