build-system/gnu: Add 'package-with-restricted-references'.

* guix/build-system/gnu.scm (package-with-restricted-references): New
  procedure.
This commit is contained in:
Ludovic Courtès 2014-06-07 19:35:20 +02:00
parent 1c93be5600
commit f986c264b2

View file

@ -33,7 +33,8 @@ (define-module (guix build-system gnu)
package-with-extra-configure-variable
static-libgcc-package
static-package
dist-package))
dist-package
package-with-restricted-references))
;; Commentary:
;;
@ -190,6 +191,15 @@ (define* (dist-package p source)
("gettext" ,(ref '(gnu packages gettext) 'gnu-gettext))
("texinfo" ,(ref '(gnu packages texinfo) 'texinfo))))))))
(define (package-with-restricted-references p refs)
"Return a package whose outputs are guaranteed to only refer to the packages
listed in REFS."
(if (eq? (package-build-system p) gnu-build-system) ; XXX: dirty
(package (inherit p)
(arguments `(#:allowed-references ,refs
,@(package-arguments p))))
p))
(define %store
;; Store passed to STANDARD-INPUTS.