01/01: gnu: mes: Don't fail when (%current-target-system) is #f.

[Marius Bakke]

mbakke pushed a commit to branch master
in repository guix.

commit 5afc737363977a41880d57cd47907cacd7f1de0c
Author: Marius Bakke <address@hidden>
Date:   Wed May 17 15:49:04 2017 +0200

    gnu: mes: Don't fail when (%current-target-system) is #f.
    
    * gnu/packages/mes.scm (mes)[native-inputs]: Test string equality 
differently.
---
 gnu/packages/mes.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/mes.scm b/gnu/packages/mes.scm
index 66b0654..1e233a8 100644
--- a/gnu/packages/mes.scm
+++ b/gnu/packages/mes.scm
@@ -75,8 +75,8 @@ extensive examples, including parsers for the Javascript and 
C99 languages.")
        `(("nyacc" ,nyacc)))
       (native-inputs
        `(("guile" ,guile-2.2)
-         ,@(if (or (equal? (%current-system) "x86_64-linux")
-                   (string-prefix? (%current-target-system) "x86_64-linux"))
+         ,@(if (string-prefix? "x86_64-linux" (or (%current-target-system)
+                                                  (%current-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))