[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: gnu: mame: Fix renaming executable.
From: |
Efraim Flashner |
Subject: |
01/01: gnu: mame: Fix renaming executable. |
Date: |
Tue, 12 Jun 2018 12:09:44 -0400 (EDT) |
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