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

gexp: 'assume-valid-file-name' has files looked up under the CWD.

Browse source 
Fixes a bug introduced in 5d4ad8e1be,
whereby files enclosed in 'assume-valid-file-name' would be looked up
relative to the source directory instead of relative to the current
directory.

* guix/gexp.scm (local-file): In the 'assume-valid-file-name' case, look
up FILE relative to the current working directory.
This commit is contained in:
Ludovic Courtès 2020-10-18 00:21:33 +02:00
parent d14221bf65
commit 6be7146130
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/gexp.scm
View file

@ -457,11 +457,11 @@ (define-syntax local-file
(delay (absolute-file-name file (current-source-directory)))
rest ...))
((_ (assume-valid-file-name file) rest ...)
;; FILE is not a literal, so resolve it relative to the source
;; FILE is not a literal, so resolve it relative to the current
;; directory. Since the user declared FILE is valid, do not pass
;; #:literal? #f so that we do not warn about it later on.
#'(%local-file file
(delay (absolute-file-name file (current-source-directory)))
(delay (absolute-file-name file (getcwd)))
rest ...))
((_ file rest ...)
;; Resolve FILE relative to the current directory.