diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-06-15 23:38:31 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-06-15 23:39:32 +0200 |
| commit | 9c71a2aec48583e8189ea3057f7dd2e6866edb7a (patch) | |
| tree | d4941b25db8783d8e09457bbf03e6a7e7c0eaffc | |
| parent | 934488ccd38437f23a5c2c36d4633d2cfc0740cc (diff) | |
| download | guix-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.scm | 2 |
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 |