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.
This commit is contained in:
Mathieu Othacehe 2017-11-05 12:01:26 +01:00
parent d298e7652a
commit 2ac42fe51f
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with 2 additions and 1 deletions

View File

@ -338,7 +338,8 @@ also initializes the boards (RAM etc).")
(define (make-u-boot-package board triplet) (define (make-u-boot-package board triplet)
"Returns a u-boot package for BOARD cross-compiled for 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 `#t
`#f))) `#f)))
(package (package