me/guix
Archived
1
0
Fork 0
Code Activity

packages: Add 'set-grafting' procedure.

Browse source 
* guix/packages.scm (set-grafting): New procedure.
This commit is contained in:
Ludovic Courtès 2015-02-13 23:07:11 +01:00
parent 2bba832f88
commit b8bedf6051
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
guix/packages.scm
View file

@ -114,6 +114,7 @@
default-guile default-guile
set-guile-for-build set-guile-for-build
set-grafting
package-file package-file
package->derivation package->derivation
package->cross-derivation package->cross-derivation
@ -906,6 +907,12 @@ code of derivations to GUILE, a package object."
(let ((guile (package-derivation store guile))) (let ((guile (package-derivation store guile)))
(values (%guile-for-build guile) store)))) (values (%guile-for-build guile) store))))
(define (set-grafting enable?)
"This monadic procedure enables grafting when ENABLE? is true, and disables
it otherwise. It returns the previous setting."
(lambda (store)
(values (%graft? enable?) store)))
(define* (package-file package (define* (package-file package
#:optional file #:optional file
#:key #:key