[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/10: grafts: Inline 'grafting?' and 'set-grafting'.
From: |
guix-commits |
Subject: |
01/10: grafts: Inline 'grafting?' and 'set-grafting'. |
Date: |
Tue, 23 Feb 2021 09:27:22 -0500 (EST) |
civodul pushed a commit to branch master
in repository guix.
commit db45712a675ada5cadc56c758d92894059af91f9
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Feb 19 22:19:41 2021 +0100
grafts: Inline 'grafting?' and 'set-grafting'.
As for 'current-target-system' & co., this makes sure we don't
needlessly allocate closures.
* guix/grafts.scm (grafting?, set-grafting): Inline.
---
guix/grafts.scm | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/guix/grafts.scm b/guix/grafts.scm
index 910dcad..fd8a108 100644
--- a/guix/grafts.scm
+++ b/guix/grafts.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès
<ludo@gnu.org>
+;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020, 2021 Ludovic Courtès
<ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -323,14 +323,14 @@ DRV, and graft DRV itself to refer to those grafted
dependencies."
;; Whether to honor package grafts by default.
(make-parameter #t))
-(define (set-grafting enable?)
- "This monadic procedure enables grafting when ENABLE? is true, and disables
-it otherwise. It returns the previous setting."
+(define-inlinable (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 (grafting?)
- "Return a Boolean indicating whether grafting is enabled."
+(define-inlinable (grafting?)
+ ;; Return a Boolean indicating whether grafting is enabled.
(lambda (store)
(values (%graft?) store)))
- branch master updated (3c548c3 -> 0a912b3), guix-commits, 2021/02/23
- 03/10: gexp: Micro-optimize sexp serialization., guix-commits, 2021/02/23
- 01/10: grafts: Inline 'grafting?' and 'set-grafting'.,
guix-commits <=
- 04/10: gexp: 'gexp-inputs' returns a list of <gexp-input> records., guix-commits, 2021/02/23
- 05/10: gexp: 'gexp-inputs' returns both native and non-native inputs., guix-commits, 2021/02/23
- 08/10: gexp: Reduce allocations while traversing lists., guix-commits, 2021/02/23
- 07/10: gexp: Micro-optimize 'gexp->sexp' and 'lower-inputs'., guix-commits, 2021/02/23
- 06/10: gexp: Keep 'lower-inputs' private., guix-commits, 2021/02/23
- 09/10: gexp: Reduce allocations in 'gexp-attribute'., guix-commits, 2021/02/23
- 10/10: store: Micro-optimize object cache lookup., guix-commits, 2021/02/23
- 02/10: store: Object cache profiling shows the number of entries., guix-commits, 2021/02/23