me
/
guix
Archived
1
0
Fork 0
Code

grafts: Add 'without-grafting'. 

* guix/grafts.scm (call-without-grafting): New procedure.
(without-grafting): New macro.
master
Ludovic Courtès 2021-03-07 15:26:17 +01:00
parent 89b0c2390a
commit 565733c4d7
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
guix/grafts.scm
View File

@ -42,6 +42,7 @@
graft-derivation/shallow graft-derivation/shallow
%graft? %graft?
without-grafting
set-grafting set-grafting
grafting?)) grafting?))
@ -323,6 +324,17 @@ DRV, and graft DRV itself to refer to those grafted dependencies."
;; Whether to honor package grafts by default. ;; Whether to honor package grafts by default.
(make-parameter #t)) (make-parameter #t))
(define (call-without-grafting thunk)
(lambda (store)
(values (parameterize ((%graft? #f))
(run-with-store store (thunk)))
store)))
(define-syntax-rule (without-grafting mexp ...)
"Bind monadic expressions MEXP in a dynamic extent where '%graft?' is
false."
(call-without-grafting (lambda () (mbegin %store-monad mexp ...))))
(define-inlinable (set-grafting enable?) (define-inlinable (set-grafting enable?)
;; This monadic procedure enables grafting when ENABLE? is true, and ;; This monadic procedure enables grafting when ENABLE? is true, and
;; disables it otherwise. It returns the previous setting. ;; disables it otherwise. It returns the previous setting.