From ac5c1cec868b3a3a0f7bc4b06f101c9913361130 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 25 Jun 2013 00:06:31 +0200
Subject: [PATCH] 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.
---
 guix/build-system/trivial.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/guix/build-system/trivial.scm b/guix/build-system/trivial.scm
index 85a3c697e3..3c5031c4bd 100644
--- a/guix/build-system/trivial.scm
+++ b/guix/build-system/trivial.scm
@@ -53,8 +53,7 @@ ignored."
                               outputs guile system builder (modules '())
                               search-paths native-search-paths)
   "Like `trivial-build', but in a cross-compilation context."
-  (build-expression->derivation store name system
-                                `(let ((%target ,target)) ,builder)
+  (build-expression->derivation store name system builder
                                 (append native-inputs inputs)
                                 #:outputs outputs
                                 #:modules modules