diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2012-10-25 23:14:27 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2012-10-25 23:14:27 +0200 |
| commit | ae39d1b233c93bcca0c27a64d59040e50e2a0955 (patch) | |
| tree | 0d9c8462346510ceb73a656d720733c4f3d307de | |
| parent | b272c47433f7de3f5c16a81f4be9b3a8f899f11c (diff) | |
| download | guix-ae39d1b233c93bcca0c27a64d59040e50e2a0955.tar guix-ae39d1b233c93bcca0c27a64d59040e50e2a0955.tar.gz | |
derivations: Make sure `build-expression->derivation' & co. pass `system'.
* guix/derivations.scm (imported-files): Call
`build-expression->derivation' with SYSTEM, not (%current-system).
(build-expression->derivation): Pass SYSTEM to `imported-modules' and
`compiled-modules'.
| -rw-r--r-- | guix/derivations.scm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/guix/derivations.scm b/guix/derivations.scm index 4be3168824..7fc8734238 100644 --- a/guix/derivations.scm +++ b/guix/derivations.scm @@ -498,7 +498,7 @@ system, imported, and appears under FINAL-PATH in the resulting store path." (mkdir ,tail)))))) `((symlink ,store-path ,final-path))))) files)))) - (build-expression->derivation store name (%current-system) + (build-expression->derivation store name system builder files #:guile-for-build guile))) @@ -641,11 +641,15 @@ omitted or is #f, the value of the `%guile-for-build' fluid is used instead." (_ `(,exp)))))) (map second inputs))) (mod-drv (and (pair? modules) - (imported-modules store modules #:guile guile-drv))) + (imported-modules store modules + #:guile guile-drv + #:system system))) (mod-dir (and mod-drv (derivation-path->output-path mod-drv))) (go-drv (and (pair? modules) - (compiled-modules store modules #:guile guile-drv))) + (compiled-modules store modules + #:guile guile-drv + #:system system))) (go-dir (and go-drv (derivation-path->output-path go-drv)))) (derivation store name system guile |