packages: 'package-field-location' preserves the original file name.
This fixes a regression introduced in
9a38bed2cf
.
* guix/packages.scm (package-field-location): Do not shadow the 'file'
variable.
This commit is contained in:
parent
21cdb35b60
commit
66c9bc35ef
1 changed files with 2 additions and 2 deletions
|
@ -476,11 +476,11 @@ object."
|
||||||
(match (package-location package)
|
(match (package-location package)
|
||||||
(($ <location> file line column)
|
(($ <location> file line column)
|
||||||
(match (search-path %load-path file)
|
(match (search-path %load-path file)
|
||||||
((? string? file)
|
((? string? file-found)
|
||||||
(catch 'system-error
|
(catch 'system-error
|
||||||
(lambda ()
|
(lambda ()
|
||||||
;; In general we want to keep relative file names for modules.
|
;; In general we want to keep relative file names for modules.
|
||||||
(call-with-input-file file
|
(call-with-input-file file-found
|
||||||
(lambda (port)
|
(lambda (port)
|
||||||
(goto port line column)
|
(goto port line column)
|
||||||
(match (read port)
|
(match (read port)
|
||||||
|
|
Reference in a new issue