build-system/trivial: Don't bind `%target' in the builder.

* guix/build-system/trivial.scm (trivial-cross-build): Don't bind
  `%target' here since this causes problem when BUILDER
  contains (use-modules ...) clauses, and can be achieved differently
  anyway.
This commit is contained in:
Ludovic Courtès 2013-06-25 00:06:31 +02:00
parent 1e4310f1f2
commit ac5c1cec86

View file

@ -53,8 +53,7 @@ (define* (trivial-cross-build store name target source inputs native-inputs
outputs guile system builder (modules '()) outputs guile system builder (modules '())
search-paths native-search-paths) search-paths native-search-paths)
"Like `trivial-build', but in a cross-compilation context." "Like `trivial-build', but in a cross-compilation context."
(build-expression->derivation store name system (build-expression->derivation store name system builder
`(let ((%target ,target)) ,builder)
(append native-inputs inputs) (append native-inputs inputs)
#:outputs outputs #:outputs outputs
#:modules modules #:modules modules