diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-02-13 23:07:11 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-02-13 23:19:49 +0100 |
| commit | b8bedf6051200b0c8eb6ddf4ac1b155466caa3ec (patch) | |
| tree | 776383a8899dc6db3317473864433826802da770 /guix/packages.scm | |
| parent | 2bba832f88b579ab466c0c19c9ec5503d1878d26 (diff) | |
| download | gnu-guix-b8bedf6051200b0c8eb6ddf4ac1b155466caa3ec.tar gnu-guix-b8bedf6051200b0c8eb6ddf4ac1b155466caa3ec.tar.gz | |
packages: Add 'set-grafting' procedure.
* guix/packages.scm (set-grafting): New procedure.
Diffstat (limited to 'guix/packages.scm')
| -rw-r--r-- | guix/packages.scm | 7 |
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 |