17/17: gnu: xboing: Use INVOKE.

[guix-commits]

rekado pushed a commit to branch master
in repository guix.

commit 48dbb1bf2b60d6025a544f4b59b4452088331e09
Author: Ricardo Wurmus <address@hidden>
Date:   Sat Jan 26 16:33:27 2019 +0100

    gnu: xboing: Use INVOKE.
    
    * gnu/packages/games.scm (xboing)[arguments]: Use INVOKE in build phases.  
Do
    not replace "install" phase; add new "install-man-pages" phase instead.
---
 gnu/packages/games.scm | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm
index 9c78230..6100ca7 100644
--- a/gnu/packages/games.scm
+++ b/gnu/packages/games.scm
@@ -1533,7 +1533,6 @@ fully interactive graphical interface and it can load and 
save games in the
 Portable Game Notation.")
     (license license:gpl3+)))
 
-
 (define-public xboing
   (package
     (name "xboing")
@@ -1564,14 +1563,11 @@ Portable Game Notation.")
 
              ;; FIXME: HIGH_SCORE_FILE should be set to somewhere writeable
 
-             (zero? (system* "xmkmf" "-a"
-                             (string-append "-DProjectRoot="
-                                            (assoc-ref outputs "out"))))))
-        (replace 'install
-          (lambda* (#:key outputs #:allow-other-keys)
-            (and
-             (zero? (system* "make" "install.man"))
-             (zero? (system* "make" "install"))))))))
+             (invoke "xmkmf" "-a"
+                     (string-append "-DProjectRoot="
+                                    (assoc-ref outputs "out")))))
+        (add-before 'install 'install-man-pages
+          (lambda _ (invoke "make" "install.man"))))))
     (inputs `(("libx11" ,libx11)
               ("libxext" ,libxext)
               ("libxpm" ,libxpm)))