diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2018-11-14 21:20:46 +0100 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2018-11-14 21:20:46 +0100 |
| commit | 79ee97a144aaaa890be0724aaf796e2a771179d7 (patch) | |
| tree | fddd2f20003d60e42eed7a614acea91a13d854d7 /guix/grafts.scm | |
| parent | 7d9d521fbcf1423f66d6f33208c03d5dacb7ba50 (diff) | |
| parent | e921993c25626541385f191f0463cad8e5e5c5c7 (diff) | |
| download | guix-patches-79ee97a144aaaa890be0724aaf796e2a771179d7.tar guix-patches-79ee97a144aaaa890be0724aaf796e2a771179d7.tar.gz | |
Merge branch 'master' into core-updates
Diffstat (limited to 'guix/grafts.scm')
| -rw-r--r-- | guix/grafts.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/guix/grafts.scm b/guix/grafts.scm index f303e925f1..01e245d8eb 100644 --- a/guix/grafts.scm +++ b/guix/grafts.scm @@ -40,7 +40,8 @@ graft-derivation/shallow %graft? - set-grafting)) + set-grafting + grafting?)) (define-record-type* <graft> graft make-graft graft? @@ -328,6 +329,11 @@ it otherwise. It returns the previous setting." (lambda (store) (values (%graft? enable?) store))) +(define (grafting?) + "Return a Boolean indicating whether grafting is enabled." + (lambda (store) + (values (%graft?) store))) + ;; Local Variables: ;; eval: (put 'with-cache 'scheme-indent-function 1) ;; End: |