From ddce090306023c7cf08eda81545b702f5fc1496d Mon Sep 17 00:00:00 2001 From: Tobias Geerinckx-Rice Date: Wed, 29 Mar 2017 18:46:31 +0200 Subject: 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. --- gnu/packages/games.scm | 17 +++++++++++------ 1 file changed, 11 insertions(+), 6 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm index 0dcb15f32b..80c5cc303e 100644 --- a/gnu/packages/games.scm +++ b/gnu/packages/games.scm @@ -26,6 +26,7 @@ ;;; Copyright © 2016 Steve Webber ;;; Copyright © 2017 Adonay "adfeno" Felipe Nogueira ;;; Copyright © 2017 Arun Isaac +;;; Copyright © 2017 Tobias Geerinckx-Rice ;;; ;;; 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") -- cgit v1.2.3