build-system/trivial: Fix introduction of `%target' when cross-building.

* guix/build-system/trivial.scm (trivial-cross-build): Wrap BUILDER in a
  `let' rather than in `begin'.
This commit is contained in:
Ludovic Courtès 2013-06-15 23:38:31 +02:00
parent 934488ccd3
commit 9c71a2aec4
1 changed files with 1 additions and 1 deletions

View File

@ -54,7 +54,7 @@ ignored."
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
`(begin (define %target ,target) ,builder) `(let ((%target ,target)) ,builder)
(append native-inputs inputs) (append native-inputs inputs)
#:outputs outputs #:outputs outputs
#:modules modules #:modules modules