summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2022-02-11 17:24:39 +0100
committerLudovic Courtès <ludo@gnu.org>2022-02-11 17:28:01 +0100
commit5996aab354831d942b10253bc70217a4f2e6a247 (patch)
treecf018bb5c4d09d70d4b5b23d4f2615ed8263b660
parentaf57d1bf6c46f47d82dbc234dde1e16fa8634e9d (diff)
downloadguix-5996aab354831d942b10253bc70217a4f2e6a247.tar.gz
build-system/texlive: Be explicit about #:guile-for-build.
This ensures package derivations are not a function of the value
of (%guile-for-build).

* guix/build-system/texlive.scm (texlive-build): Explicitly pass
 #:guile-for-build to 'gexp->derivation'.
-rw-r--r--guix/build-system/texlive.scm13
1 files changed, 8 insertions, 5 deletions
diff --git a/guix/build-system/texlive.scm b/guix/build-system/texlive.scm
index 09907c67d8..dbb72cd24a 100644
--- a/guix/build-system/texlive.scm
+++ b/guix/build-system/texlive.scm
@@ -1,6 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
-;;; Copyright © 2021 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2021-2022 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2021 Thiago Jung Bauermann <bauermann@kolabnow.com>
 ;;;
 ;;; This file is part of GNU Guix.
@@ -177,10 +177,13 @@ level package ID."
                                                   (map search-path-specification->sexp
                                                        search-paths)))))))
 
-  (gexp->derivation name builder
-                    #:system system
-                    #:target #f
-                    #:substitutable? substitutable?))
+  (mlet %store-monad ((guile (package->derivation (or guile (default-guile))
+                                                  system #:graft? #f)))
+    (gexp->derivation name builder
+                      #:system system
+                      #:target #f
+                      #:substitutable? substitutable?
+                      #:guile-for-build guile)))
 
 (define texlive-build-system
   (build-system