01/01: gnu: mame: Fix renaming executable.

[Efraim Flashner]

efraim pushed a commit to branch master
in repository guix.

commit 6921e95ae80daad8cbd08fccaf2516298c196149
Author: Efraim Flashner <address@hidden>
Date:   Tue Jun 12 19:08:32 2018 +0300

    gnu: mame: Fix renaming executable.
    
    * gnu/packages/emulators.scm (mame)[arguments]: Only rename 'mame64' to
    'mame' when 'mame64' exists.
---
 gnu/packages/emulators.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/emulators.scm b/gnu/packages/emulators.scm
index a7c9104..1687c96 100644
--- a/gnu/packages/emulators.scm
+++ b/gnu/packages/emulators.scm
@@ -1235,7 +1235,8 @@ play them on systems for which they were never designed!")
                            (find-files "keymaps" ".*LINUX\\.map")))
                (let ((fonts (string-append share "/fonts")))
                  (install-file "uismall.bdf" fonts))
-               (rename-file "mame64" "mame")
+               (when (file-exists? "mame64")
+                 (rename-file "mame64" "mame"))
                (install-file "mame" (string-append out "/bin")))
              #t))
          (add-after 'install 'install-documentation