packages: Add 'set-grafting' procedure.

* guix/packages.scm (set-grafting): New procedure.

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