ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-26 20:49:29 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

packages: 'package-field-location' handles missing source properties.

Browse source 
This is a followup to f2b24f01f4.

* guix/packages.scm (package-field-location): Check whether
'source-properties->location' returns #f.  This fixes the case where
'source-properties' returns the empty list.
This commit is contained in:
Ludovic Courtès 2020-03-22 12:31:07 +01:00
parent 3e6f65be7a
commit 91601790d0
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
guix/packages.scm
View file

@ -363,12 +363,12 @@ (define (goto port line column)
(let ((field (assoc field inits)))
(match field
((_ value)
(let ((props (source-properties value)))
(and props
(let ((loc (and=> (source-properties value)
source-properties->location)))
(and loc
;; Preserve the original file name, which may be a
;; relative file name.
(let ((loc (source-properties->location props)))
(set-field loc (location-file) file)))))
(set-field loc (location-file) file))))
(_
#f))))
(_