From d2cd4134c1960c76aa70f44d7356bc74494471c7 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Fri, 15 May 2020 15:22:07 +0200
Subject: 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(-)

(limited to 'guix/gexp.scm')

diff --git a/guix/gexp.scm b/guix/gexp.scm
index 2a4b36519c..62973460f2 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))))
 
-- 
cgit v1.2.3