diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-03-17 21:46:00 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-03-17 22:25:55 +0100 |
| commit | 9d8100f4c7d9f44a3623419039ac985be7ba9bb3 (patch) | |
| tree | 2acde3a2bd38fb2e71c988cefa83b6654235f586 /guix/packages.scm | |
| parent | bcb132876370fc2e51ea9ba137b92932e9e956e4 (diff) | |
| download | guix-patches-9d8100f4c7d9f44a3623419039ac985be7ba9bb3.tar guix-patches-9d8100f4c7d9f44a3623419039ac985be7ba9bb3.tar.gz | |
packages: Move grafting parameter to (guix derivations).
* guix/packages.scm (%graft?, set-grafting): Move to...
* guix/derivations.scm: ... here.
Diffstat (limited to 'guix/packages.scm')
| -rw-r--r-- | guix/packages.scm | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/guix/packages.scm b/guix/packages.scm index fc5264673d..df56286c5b 100644 --- a/guix/packages.scm +++ b/guix/packages.scm @@ -103,7 +103,6 @@ &package-cross-build-system-error package-cross-build-system-error? - %graft? package->bag bag->derivation bag-transitive-inputs @@ -112,9 +111,7 @@ bag-transitive-target-inputs default-guile - set-guile-for-build - set-grafting package-file package->derivation package->cross-derivation @@ -678,10 +675,6 @@ information in exceptions." (package package) (input x))))))) -(define %graft? - ;; Whether to honor package grafts by default. - (make-parameter #t)) - (define* (package->bag package #:optional (system (%current-system)) (target (%current-target-system)) @@ -918,12 +911,6 @@ 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 |