22/23: gnu: dlib: Return #t from all phases.

[Tobias Geerinckx-Rice]

nckx pushed a commit to branch master
in repository guix.

commit 8448e6bfcfbdedc8fd0e6c72a17cc3b0f469e182
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Tue Jun 26 19:39:29 2018 +0200

    gnu: dlib: Return #t from all phases.
    
    * gnu/packages/machine-learning.scm (dlib)[arguments]: Substitute INVOKE
    for SYSTEM*. Return #t rather than undefined from phases.
---
 gnu/packages/machine-learning.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/machine-learning.scm 
b/gnu/packages/machine-learning.scm
index d1025c2..d20e685 100644
--- a/gnu/packages/machine-learning.scm
+++ b/gnu/packages/machine-learning.scm
@@ -668,8 +668,9 @@ and a QP solver.")
              ;; No test target, so we build and run the unit tests here.
              (let ((test-dir (string-append "../dlib-" ,version "/dlib/test")))
                (with-directory-excursion test-dir
-                 (and (zero? (system* "make" "-j" (number->string 
(parallel-job-count))))
-                      (zero? (system* "./dtest" "--runall")))))))
+                 (invoke "make" "-j" (number->string (parallel-job-count)))
+                 (invoke "./dtest" "--runall"))
+               #t)))
          (add-after 'install 'delete-static-library
            (lambda* (#:key outputs #:allow-other-keys)
              (delete-file (string-append (assoc-ref outputs "out")