mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-26 22:38:07 -05:00
packages: '%standard-patch-inputs' is not influenced by '%current-target-system'.
* guix/packages.scm (%standard-patch-inputs): Parameterize %CURRENT-TARGET-SYSTEM around call to CANONICAL.
This commit is contained in:
parent
6cd591155c
commit
83bdaf3150
1 changed files with 6 additions and 2 deletions
|
@ -563,8 +563,12 @@ (define (%standard-patch-inputs)
|
|||
(let* ((canonical (module-ref (resolve-interface '(gnu packages base))
|
||||
'canonical-package))
|
||||
(ref (lambda (module var)
|
||||
(canonical
|
||||
(module-ref (resolve-interface module) var)))))
|
||||
;; Make sure 'canonical-package' is not influenced by
|
||||
;; '%current-target-system' since we're going to use the
|
||||
;; native package anyway.
|
||||
(parameterize ((%current-target-system #f))
|
||||
(canonical
|
||||
(module-ref (resolve-interface module) var))))))
|
||||
`(("tar" ,(ref '(gnu packages base) 'tar))
|
||||
("xz" ,(ref '(gnu packages compression) 'xz))
|
||||
("bzip2" ,(ref '(gnu packages compression) 'bzip2))
|
||||
|
|
Loading…
Reference in a new issue