diff options
| author | Efraim Flashner <efraim@flashner.co.il> | 2018-06-12 19:08:32 +0300 |
|---|---|---|
| committer | Efraim Flashner <efraim@flashner.co.il> | 2018-06-12 19:08:47 +0300 |
| commit | 6921e95ae80daad8cbd08fccaf2516298c196149 (patch) | |
| tree | 159066de8e207d56bc47de48068e394d4ff35d18 | |
| parent | a9e7d6564b42cf62bab73eef3cf2bc99851ef379 (diff) | |
| download | guix-6921e95ae80daad8cbd08fccaf2516298c196149.tar.gz guix-6921e95ae80daad8cbd08fccaf2516298c196149.zip | |
gnu: mame: Fix renaming executable.
* gnu/packages/emulators.scm (mame)[arguments]: Only rename 'mame64' to
'mame' when 'mame64' exists.
| -rw-r--r-- | gnu/packages/emulators.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gnu/packages/emulators.scm b/gnu/packages/emulators.scm index a7c9104683..1687c9652f 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 |