[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: gexp: Simplify use of 'with-target' in 'compiled-modules'.
From: |
guix-commits |
Subject: |
01/01: gexp: Simplify use of 'with-target' in 'compiled-modules'. |
Date: |
Fri, 15 May 2020 09:25:25 -0400 (EDT) |
civodul pushed a commit to branch core-updates
in repository guix.
commit d2cd4134c1960c76aa70f44d7356bc74494471c7
Author: Ludovic Courtès <address@hidden>
AuthorDate: Fri May 15 15:22:07 2020 +0200
gexp: Simplify use of 'with-target' in 'compiled-modules'.
* guix/gexp.scm (compiled-modules)[build]: Simplify 'with-target'
handling.
---
guix/gexp.scm | 17 ++++++-----------
1 file changed, 6 insertions(+), 11 deletions(-)
diff --git a/guix/gexp.scm b/guix/gexp.scm
index 2a4b365..6297346 100644
--- a/guix/gexp.scm
+++ b/guix/gexp.scm
@@ -1456,17 +1456,12 @@ TARGET, a GNU triplet."
(ungexp (* total 2))
entry)
- (ungexp-splicing
- (if target
- (gexp ((with-target (ungexp target)
- (lambda ()
- (compile-file entry
- #:output-file output
- #:opts
- %auto-compilation-options)))))
- (gexp ((compile-file entry
- #:output-file output
- #:opts
%auto-compilation-options)))))
+ (with-target (ungexp (or target (gexp %host-type)))
+ (lambda ()
+ (compile-file entry
+ #:output-file output
+ #:opts
+ %auto-compilation-options)))
(+ 1 processed))))