ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

utils: Fix column number returned by `source-properties->location'.

Browse source 
* guix/utils.scm (source-properties->location): Use COL, not COL + 1.
This commit is contained in:
Ludovic Courtès 2013-04-24 14:44:33 +02:00
parent 867b14108d
commit 5fe21fbeef
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
guix/utils.scm
View file

@ -533,5 +533,6 @@ (define (source-properties->location loc)
(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)))