me
/
guix
Archived
1
0
Fork 0
Code

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