01/01: gexp: Simplify use of 'with-target' in 'compiled-modules'.

[guix-commits]

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))))