01/01: gnu: uboot: Fix same-arch? check.

[Mathieu Othacehe]

mothacehe pushed a commit to branch master
in repository guix.

commit 2ac42fe51fcbd9b9f36fcfce350da2d483dc0cc9
Author: Mathieu Othacehe <address@hidden>
Date:   Sun Nov 5 12:01:26 2017 +0100

    gnu: uboot: Fix same-arch? check.
    
    * gnu/packages/bootloaders.scm (make-u-boot-package): Compare 
%current-system
      to system associated to given triplet. Comparing a system and a triplet
      didn't make sense.
---
 gnu/packages/bootloaders.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/bootloaders.scm b/gnu/packages/bootloaders.scm
index 62282c9..8c093eb 100644
--- a/gnu/packages/bootloaders.scm
+++ b/gnu/packages/bootloaders.scm
@@ -338,7 +338,8 @@ also initializes the boards (RAM etc).")
 
 (define (make-u-boot-package board triplet)
   "Returns a u-boot package for BOARD cross-compiled for TRIPLET."
-  (let ((same-arch? (if (string-prefix? (%current-system) triplet)
+  (let ((same-arch? (if (string-prefix? (%current-system)
+                                        (gnu-triplet->nix-system triplet))
                       `#t
                       `#f)))
     (package