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'.
master
Ludovic Courtès 2012-10-25 23:14:27 +02:00
parent b272c47433
commit ae39d1b233
1 changed files with 7 additions and 3 deletions

View File

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