~ruther/guix-local: gnu: uboot: Fix same-arch? check.

2ac42fe51fcbd9b9f36fcfce350da2d483dc0cc9 — Mathieu Othacehe 8 years ago d298e76

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.

patch browse .tar.gz

1 files changed, 2 insertions(+), 1 deletions(-)

M gnu/packages/bootloaders.scm

M gnu/packages/bootloaders.scm => gnu/packages/bootloaders.scm +2 -1

@@ 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