gnu: mes: Generalize logic for native-inputs.

* gnu/packages/mes.scm (mes)[native-inputs]: On all architectures except
i686-linux use cross compiler packages.
This commit is contained in:
Efraim Flashner 2018-01-07 10:09:55 +02:00
parent 56804398a9
commit beb7e659f2
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351

View file

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2017, 2018 Efraim Flashner <efraim@flashner.co.il>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -76,8 +76,8 @@ (define-public mes
("nyacc" ,nyacc))) ("nyacc" ,nyacc)))
(native-inputs (native-inputs
`(("guile" ,guile-2.2) `(("guile" ,guile-2.2)
,@(if (string-prefix? "x86_64-linux" (or (%current-target-system) ,@(if (not (string-prefix? "i686-linux" (or (%current-target-system)
(%current-system))) (%current-system))))
;; Use cross-compiler rather than #:system "i686-linux" to get ;; Use cross-compiler rather than #:system "i686-linux" to get
;; MesCC 64 bit .go files installed ready for use with Guile. ;; MesCC 64 bit .go files installed ready for use with Guile.
`(("i686-linux-binutils" ,(cross-binutils triplet)) `(("i686-linux-binutils" ,(cross-binutils triplet))