diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2012-10-27 14:53:47 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2012-10-27 14:53:47 +0200 |
| commit | 5e6c90121f88b05b6d61e2b36aa27f5f4ce21bcd (patch) | |
| tree | b1cd9be14179af9ee35090295581eecad803a1b3 | |
| parent | d25468bcb2772ac10efb2ae7035250af20e19c85 (diff) | |
| download | guix-5e6c90121f88b05b6d61e2b36aa27f5f4ce21bcd.tar.gz | |
location: Start column numbers at 1.
* guix/utils.scm (source-properties->location): Use COL + 1.
| -rw-r--r-- | guix/utils.scm | 3 |
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))))) |