summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-02-13 23:07:11 +0100
committerLudovic Courtès <ludo@gnu.org>2015-02-13 23:19:49 +0100
commitb8bedf6051200b0c8eb6ddf4ac1b155466caa3ec (patch)
tree776383a8899dc6db3317473864433826802da770 /guix
parent2bba832f88b579ab466c0c19c9ec5503d1878d26 (diff)
downloadgnu-guix-b8bedf6051200b0c8eb6ddf4ac1b155466caa3ec.tar
gnu-guix-b8bedf6051200b0c8eb6ddf4ac1b155466caa3ec.tar.gz
packages: Add 'set-grafting' procedure.
* guix/packages.scm (set-grafting): New procedure.
Diffstat (limited to 'guix')
-rw-r--r--guix/packages.scm7
1 files changed, 7 insertions, 0 deletions
diff --git a/guix/packages.scm b/guix/packages.scm
index 96f3adfc32..5b686a122f 100644
--- a/guix/packages.scm
+++ b/guix/packages.scm
@@ -114,6 +114,7 @@
default-guile
set-guile-for-build
+ set-grafting
package-file
package->derivation
package->cross-derivation
@@ -906,6 +907,12 @@ code of derivations to GUILE, a package object."
(let ((guile (package-derivation store guile)))
(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
#:optional file
#:key