From 9c71a2aec48583e8189ea3057f7dd2e6866edb7a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sat, 15 Jun 2013 23:38:31 +0200
Subject: [PATCH] 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'.
---
 guix/build-system/trivial.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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