07/09: gnu: ecj-bootstrap: Use INVOKE.

[Efraim Flashner]

efraim pushed a commit to branch staging
in repository guix.

commit 0b302a161daa6615aeb9f7f1c812539cbf01edb7
Author: Efraim Flashner <address@hidden>
Date:   Tue Jun 26 12:26:57 2018 +0300

    gnu: ecj-bootstrap: Use INVOKE.
    
    * gnu/packages/java.scm (ecj-bootstrap)[arguments]: Substitute INVOKE
    for SYSTEM*.
---
 gnu/packages/java.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/java.scm b/gnu/packages/java.scm
index 2551437..85d97ff 100644
--- a/gnu/packages/java.scm
+++ b/gnu/packages/java.scm
@@ -359,10 +359,10 @@ build process and its dependencies, whereas Make uses 
Makefile format.")
 Main-Class: org.eclipse.jdt.internal.compiler.batch.Main\n")))
 
              ;; Compile it all!
-             (and (zero? (apply system* "jikes"
-                                (find-files "." "\\.java$")))
-                  (zero? (system* "fastjar" "cvfm"
-                                  "ecj-bootstrap.jar" "manifest" ".")))))
+             (and (apply invoke "jikes"
+                         (find-files "." "\\.java$"))
+                  (invoke "fastjar" "cvfm"
+                          "ecj-bootstrap.jar" "manifest" "."))))
          (replace 'install
            (lambda* (#:key outputs #:allow-other-keys)
              (let ((share (string-append (assoc-ref outputs "out")