aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-06-15 23:38:31 +0200
committerLudovic Courtès <ludo@gnu.org>2013-06-15 23:39:32 +0200
commit9c71a2aec48583e8189ea3057f7dd2e6866edb7a (patch)
treed4941b25db8783d8e09457bbf03e6a7e7c0eaffc
parent934488ccd38437f23a5c2c36d4633d2cfc0740cc (diff)
downloadguix-9c71a2aec48583e8189ea3057f7dd2e6866edb7a.tar
guix-9c71a2aec48583e8189ea3057f7dd2e6866edb7a.tar.gz
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'.
-rw-r--r--guix/build-system/trivial.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/build-system/trivial.scm b/guix/build-system/trivial.scm
index af54f51419..85a3c697e3 100644
--- a/guix/build-system/trivial.scm
+++ b/guix/build-system/trivial.scm
@@ -54,7 +54,7 @@ ignored."
search-paths native-search-paths)
"Like `trivial-build', but in a cross-compilation context."
(build-expression->derivation store name system
- `(begin (define %target ,target) ,builder)
+ `(let ((%target ,target)) ,builder)
(append native-inputs inputs)
#:outputs outputs
#:modules modules