diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-02-02 13:09:04 -0500 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-02-19 21:13:22 -0500 |
| commit | 68775338a510f84e63657ab09242d79e726fa457 (patch) | |
| tree | 472959f23a813c59f9d35beea3a538f53ecdb756 | |
| parent | 5c099f496f214ccc17ae0fb7c8df63a8e7f46af0 (diff) | |
| download | guix-68775338a510f84e63657ab09242d79e726fa457.tar.gz | |
gexp: computed-file: Honor %guile-for-build.
* guix/gexp.scm (computed-file-compiler): Honor %guile-for-build.
| -rw-r--r-- | guix/gexp.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/guix/gexp.scm b/guix/gexp.scm index 5f92174a2c..cabf163076 100644 --- a/guix/gexp.scm +++ b/guix/gexp.scm @@ -584,7 +584,8 @@ This is the declarative counterpart of 'text-file'." (options computed-file-options)) ;list of arguments (define* (computed-file name gexp - #:key guile (local-build? #t) (options '())) + #:key guile + (local-build? #t) (options '())) "Return an object representing the store item NAME, a file or directory computed by GEXP. When LOCAL-BUILD? is #t (the default), it ensures the corresponding derivation is built locally. OPTIONS may be used to pass @@ -600,7 +601,8 @@ This is the declarative counterpart of 'gexp->derivation'." ;; gexp. (match file (($ <computed-file> name gexp guile options) - (mlet %store-monad ((guile (lower-object (or guile (default-guile)) + (mlet %store-monad ((guile (lower-object (or guile (%guile-for-build) + (default-guile)) system #:target #f))) (apply gexp->derivation name gexp #:guile-for-build guile #:system system #:target target options))))) |