[bug#35753] gnu: mes: Prepare for non-x86 architectures.
diff mbox series

Message ID 20190515154201.31101-1-dannym@scratchpost.org
State New
Headers show
Series
  • [bug#35753] gnu: mes: Prepare for non-x86 architectures.
Related show

Checks

Context Check Description
cbaines/applying patch success Successfully applied

Commit Message

Danny Milosavljevic May 15, 2019, 3:42 p.m. UTC
* gnu/packages/mes.scm (mes)[native-inputs]: Prepare for non-x86
architectures.
---
 gnu/packages/mes.scm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

Patch
diff mbox series

diff --git a/gnu/packages/mes.scm b/gnu/packages/mes.scm
index c45e267875..5c6b64150b 100644
--- a/gnu/packages/mes.scm
+++ b/gnu/packages/mes.scm
@@ -78,13 +78,16 @@  extensive examples, including parsers for the Javascript and C99 languages.")
          ("nyacc" ,nyacc)))
       (native-inputs
        `(("guile" ,guile-2.2)
-         ,@(if (not (string-prefix? "i686-linux" (or (%current-target-system)
-                                                     (%current-system))))
+         ,@(let ((target-system (or (%current-target-system)
+                                    (%current-system))))
+             (cond
+              ((string-prefix? "x86_64-linux" target-system)
                ;; Use cross-compiler rather than #:system "i686-linux" to get
                ;; MesCC 64 bit .go files installed ready for use with Guile.
                `(("i686-linux-binutils" ,(cross-binutils triplet))
-                 ("i686-linux-gcc" ,(cross-gcc triplet)))
-               '())
+                 ("i686-linux-gcc" ,(cross-gcc triplet))))
+              (else
+               '())))
          ("graphviz" ,graphviz)
          ("help2man" ,help2man)
          ("perl" ,perl)                 ; build-aux/gitlog-to-changelog