TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

location: Start column numbers at 1.

Browse source 
* guix/utils.scm (source-properties->location): Use COL + 1.
This commit is contained in:
Ludovic Courtès 2012-10-27 14:53:47 +02:00
parent d25468bcb2
commit 5e6c90121f
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
guix/utils.scm
View file

@ -662,4 +662,5 @@ (define (source-properties->location loc)
(let ((file (assq-ref loc 'filename)) (let ((file (assq-ref loc 'filename))
(line (assq-ref loc 'line)) (line (assq-ref loc 'line))
(col (assq-ref loc 'column))) (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)))))