From 17bb886ff42afe7caa7b89878a563243239f9698 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 24 May 2013 21:55:52 +0200
Subject: [PATCH] gnu: cross-gcc: Set the right search paths.

* gnu/packages/cross-base.scm (cross-gcc): Override `search-paths' and
  `native-search-paths'.
---
 gnu/packages/cross-base.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/cross-base.scm b/gnu/packages/cross-base.scm
index 55670fad96..06e66541de 100644
--- a/gnu/packages/cross-base.scm
+++ b/gnu/packages/cross-base.scm
@@ -175,7 +175,17 @@ GCC that does not target a libc; otherwise, target that libc."
            (if libc
                `(("libc" ,libc)
                  ,@inputs)
-               inputs))))))
+               inputs))))
+
+    ;; Only search target inputs, not host inputs.
+    (search-paths
+     (list (search-path-specification
+            (variable "CROSS_CPATH")
+            (directories '("include")))
+           (search-path-specification
+            (variable "CROSS_LIBRARY_PATH")
+            (directories '("lib" "lib64")))))
+    (native-search-paths '())))
 
 (define* (cross-libc target
                      #:optional