[PATCH] gnu: libxml2: Fixed cross-compilation.

[John Darrington]

* gnu/packages/xml.scm (libxml2): [(eq? (%current-target-system) #f)] assign 
"cross-libc"
  to the variable glibc
---
 gnu/packages/xml.scm |    9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/xml.scm b/gnu/packages/xml.scm
index e2bab7b..a679142 100644
--- a/gnu/packages/xml.scm
+++ b/gnu/packages/xml.scm
@@ -75,12 +75,15 @@ things the parser might find in the XML document (like 
start tags).")
          'install
          (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
           (let ((install (assoc-ref %standard-phases 'install))
-                (glibc (assoc-ref inputs "libc"))
+                (glibc (assoc-ref inputs ,(if (%current-target-system)
+                                              "cross-libc" "libc")))
                 (out (assoc-ref outputs "out")))
             (apply install args)
             (chdir "python")
-            (substitute* "setup.py" (("/opt/include") (string-append glibc 
"/include")))
-            (system* "python" "setup.py" "install" (string-append "--prefix=" 
out))))
+            (substitute* "setup.py" (("/opt/include") (string-append 
+                                                       glibc "/include")))
+            (system* "python" "setup.py" "install" (string-append 
+                                                    "--prefix=" out))))
         %standard-phases)))
     (description
      "Libxml2 is the XML C parser and toolkit developed for the Gnome project
-- 
1.7.10.4