From 53244d1ffa544305d4b6c19907dfcaf2bff2fd21 Mon Sep 17 00:00:00 2001
From: Tobias Geerinckx-Rice <me@tobias.gr>
Date: Sun, 4 Mar 2018 01:11:47 +0100
Subject: gnu: cloc: Update phase style.

* gnu/packages/code.scm (cloc)[arguments]: Substitute INVOKE for SYSTEM*
and end phases with #t.
---
 gnu/packages/code.scm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'gnu/packages/code.scm')

diff --git a/gnu/packages/code.scm b/gnu/packages/code.scm
index 4a63cba7a0..8d9c661302 100644
--- a/gnu/packages/code.scm
+++ b/gnu/packages/code.scm
@@ -229,13 +229,13 @@ COCOMO model or user-provided parameters.")
                   (replace 'install
                     (lambda* (#:key inputs outputs #:allow-other-keys)
                       (let* ((out (assoc-ref outputs "out")))
-                        (zero?
-                         (system* "make" "-C" "Unix"
-                                  (string-append "prefix=" out)
-                                  (string-append "INSTALL="
-                                                 (assoc-ref inputs "coreutils")
-                                                 "/bin/install")
-                                  "install")))))
+                        (invoke "make" "-C" "Unix"
+                                (string-append "prefix=" out)
+                                (string-append "INSTALL="
+                                               (assoc-ref inputs "coreutils")
+                                               "/bin/install")
+                                "install")
+                        #t)))
                   (add-after 'install 'wrap-program
                     (lambda* (#:key inputs outputs #:allow-other-keys)
                       (let ((out (assoc-ref outputs "out")))
-- 
cgit 1.4.1