TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add package/inherit.

Browse source 
* guix/packages.scm (package/inherit): New public macro.
This commit is contained in:
Mark H Weaver 2017-05-02 03:39:23 -04:00
parent ee3401d018
commit bedba06426
No known key found for this signature in database
GPG key ID: 7CEF29847562C516
1 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
guix/packages.scm
View file

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014, 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2014, 2015, 2017 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2016 Alex Kost <alezost@gmail.com>
;;;
@ -105,6 +105,7 @@ (define-module (guix packages)
package-cross-derivation
package-output
package-grafts
package/inherit
transitive-input-references
@ -789,6 +790,16 @@ (define (rewrite p)
(package-mapping rewrite (cut assq <> replacements)))
(define-syntax-rule (package/inherit p overrides ...)
"Like (package (inherit P) OVERRIDES ...), except that the same
transformation is done to the package replacement, if any. P must be a bare
identifier, and will be bound to either P or its replacement when evaluating
OVERRIDES."
(let loop ((p p))
(package (inherit p)
overrides ...
(replacement (and=> (package-replacement p) loop)))))
;;;
;;; Package derivations.