17/23: gnu: samba: Return #t from all phases.

[Tobias Geerinckx-Rice]

nckx pushed a commit to branch master
in repository guix.

commit 6ac59f45ff376e5e8fab4f1cd5c64333e53e4e10
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Tue Jun 26 18:30:58 2018 +0200

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

diff --git a/gnu/packages/samba.scm b/gnu/packages/samba.scm
index 9858590..28fd087 100644
--- a/gnu/packages/samba.scm
+++ b/gnu/packages/samba.scm
@@ -178,8 +178,7 @@ anywhere.")
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out    (assoc-ref outputs "out"))
                     (libdir (string-append out "/lib")))
-               (zero? (system*
-                       "./configure"
+               (invoke "./configure"
                        "--enable-fhs"
                        ;; XXX: heimdal not packaged.
                        "--bundled-libraries=com_err"
@@ -188,7 +187,7 @@ anywhere.")
                        ;; Install public and private libraries into
                        ;; a single directory to avoid RPATH issues.
                        (string-append "--libdir=" libdir)
-                       (string-append "--with-privatelibdir=" libdir))))))
+                       (string-append "--with-privatelibdir=" libdir)))))
          (add-before 'install 'disable-etc-samba-directory-creation
            (lambda _
              (substitute* "dynconfig/wscript"