[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/03: grafts: Inline 'grafting?'.
From: |
guix-commits |
Subject: |
02/03: grafts: Inline 'grafting?'. |
Date: |
Fri, 19 Feb 2021 16:41:45 -0500 (EST) |
civodul pushed a commit to branch wip-build-systems-gexp
in repository guix.
commit a5122c8e380825e99142036e34eedfb38a93ced2
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Feb 19 22:19:41 2021 +0100
grafts: Inline 'grafting?'.
As for 'current-target-system' & co., this makes sure we don't
needlessly allocate closures.
* guix/grafts.scm (grafting?): Inline.
---
guix/grafts.scm | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/guix/grafts.scm b/guix/grafts.scm
index 910dcad..819251f 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.
;;;
@@ -329,8 +329,8 @@ 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)))