mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 14:56:54 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

packages: 'package-field-location' preserves the original file name.

Browse source 
This fixes a regression introduced in
9a38bed2cf.

* guix/packages.scm (package-field-location): Do not shadow the 'file'
variable.
This commit is contained in:
Ludovic Courtès 2021-02-22 17:58:11 +01:00
parent 21cdb35b60
commit 66c9bc35ef
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/packages.scm
View file

@ -476,11 +476,11 @@ (define (goto port line column)
(match (package-location package)
(($ <location> file line column)
(match (search-path %load-path file)
((? string? file)
((? string? file-found)
(catch 'system-error
(lambda ()
;; In general we want to keep relative file names for modules.
(call-with-input-file file
(call-with-input-file file-found
(lambda (port)
(goto port line column)
(match (read port)