ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-19 13:17:10 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

grafts: Add 'without-grafting'.

Browse source 
* guix/grafts.scm (call-without-grafting): New procedure.
(without-grafting): New macro.
This commit is contained in:
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 @@ (define-module (guix grafts)
graft-derivation/shallow graft-derivation/shallow
%graft? %graft?
without-grafting
set-grafting set-grafting
grafting?)) grafting?))
@ -323,6 +324,17 @@ (define %graft?
;; 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.