aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/bootloaders.scm
diff options
context:
space:
mode:
authorMathieu Othacehe <m.othacehe@gmail.com>2017-11-05 12:01:26 +0100
committerMathieu Othacehe <m.othacehe@gmail.com>2017-11-06 19:53:13 +0100
commit2ac42fe51fcbd9b9f36fcfce350da2d483dc0cc9 (patch)
tree169f69c8321e073da2d6245292eb8156fd58911c /gnu/packages/bootloaders.scm
parentd298e7652abaa1a51c0ecc71b1fd9dcdae541c23 (diff)
downloadguix-2ac42fe51fcbd9b9f36fcfce350da2d483dc0cc9.tar
guix-2ac42fe51fcbd9b9f36fcfce350da2d483dc0cc9.tar.gz
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.
Diffstat (limited to 'gnu/packages/bootloaders.scm')
-rw-r--r--gnu/packages/bootloaders.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/gnu/packages/bootloaders.scm b/gnu/packages/bootloaders.scm
index 62282c99c8..8c093ebe6a 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