diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-04-24 14:44:33 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-04-25 00:13:56 +0200 |
| commit | 5fe21fbeefe109f400aef40a51f71af111546fa3 (patch) | |
| tree | be6242e3ea9d11cdcec45c61a010eae29e6c8dd8 | |
| parent | 867b14108d4ee1313c02d29283fb0aa22c60e806 (diff) | |
| download | guix-5fe21fbeefe109f400aef40a51f71af111546fa3.tar guix-5fe21fbeefe109f400aef40a51f71af111546fa3.tar.gz | |
utils: Fix column number returned by `source-properties->location'.
* guix/utils.scm (source-properties->location): Use COL, not COL + 1.
| -rw-r--r-- | guix/utils.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/guix/utils.scm b/guix/utils.scm index ad1c463be8..4f399b95c3 100644 --- a/guix/utils.scm +++ b/guix/utils.scm @@ -533,5 +533,6 @@ etc." (let ((file (assq-ref loc 'filename)) (line (assq-ref loc 'line)) (col (assq-ref loc 'column))) - ;; In accordance with the GCS, start line and column numbers at 1. - (location file (and line (+ line 1)) (and col (+ col 1))))) + ;; In accordance with the GCS, start line and column numbers at 1. Note + ;; that unlike LINE and `port-column', COL is actually 1-indexed here... + (location file (and line (+ line 1)) col))) |