10/22: gnu: ngs-sdk: Use INVOKE.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository guix.

commit 3da3cedf76b4f19af5db5a6122a6d98f6fa7fa67
Author: Ricardo Wurmus <address@hidden>
Date:   Thu Nov 8 09:15:05 2018 +0100

    gnu: ngs-sdk: Use INVOKE.
    
    * gnu/packages/bioinformatics.scm (ngs-sdk)[arguments]: Use INVOKE and
    return #T unconditionally.
---
 gnu/packages/bioinformatics.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm
index eef42bc..c501736 100644
--- a/gnu/packages/bioinformatics.scm
+++ b/gnu/packages/bioinformatics.scm
@@ -5262,9 +5262,10 @@ Roche 454, Ion Torrent and Pacific BioSciences SMRT.")
 
                ;; The 'configure' script doesn't recognize things like
                ;; '--enable-fast-install'.
-               (zero? (system* "./configure"
-                               (string-append "--build-prefix=" (getcwd) 
"/build")
-                               (string-append "--prefix=" out))))))
+               (invoke "./configure"
+                       (string-append "--build-prefix=" (getcwd) "/build")
+                       (string-append "--prefix=" out))
+               #t)))
          (add-after 'unpack 'enter-dir
            (lambda _ (chdir "ngs-sdk") #t)))))
     (native-inputs `(("perl" ,perl)))