nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: games: Use INSTALL-FILE. 

* gnu/packages/games.scm (glkterm, glulxe): Use INSTALL-FILE, return #t
instead of an undefined value, and prefer using let bindings.
This commit is contained in:
Tobias Geerinckx-Rice 2017-03-29 18:46:31 +02:00
parent dbaca6b507
commit ddce090306
No known key found for this signature in database
GPG Key ID: 91CCDB9B48541B99
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
gnu/packages/games.scm
View File

@ -26,6 +26,7 @@
;;; Copyright © 2016 Steve Webber <webber.sl@gmail.com>
;;; Copyright © 2017 Adonay "adfeno" Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <adfeno@openmailbox.org>
;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -982,14 +983,16 @@ in different ways.")
'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(inc (string-append out "/include")))
(inc (string-append out "/include"))
(lib (string-append out "/lib")))
(mkdir-p inc)
(for-each
(lambda (file)
(copy-file file (string-append inc "/" file)))
(install-file file inc))
'("glk.h" "glkstart.h" "gi_blorb.h" "gi_dispa.h" "Make.glkterm"))
(mkdir (string-append out "/lib"))
(copy-file "libglkterm.a" (string-append out "/lib/libglkterm.a"))))
(mkdir-p lib)
(install-file "libglkterm.a" lib))
#t)
(alist-delete 'configure %standard-phases))))
(home-page "http://www.eblong.com/zarf/glk/")
(synopsis "Curses Implementation of the Glk API")
@ -1026,9 +1029,11 @@ using the curses.h library for screen control.")
(alist-replace
'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((bin (string-append (assoc-ref outputs "out") "/bin")))
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")))
(mkdir-p bin)
(copy-file "glulxe" (string-append bin "/glulxe"))))
(install-file "glulxe" bin))
#t)
(alist-delete 'configure %standard-phases))))
(home-page "http://www.eblong.com/zarf/glulx/")
(synopsis "Interpreter for Glulx VM")