01/01: build-system/ruby: Use invoke.

[guix-commits]

efraim pushed a commit to branch staging
in repository guix.

commit 0244952c11c0409597fce5c39dfbcafdfd2ea651
Author: Efraim Flashner <address@hidden>
Date:   Thu Mar 28 19:17:34 2019 +0200

    build-system/ruby: Use invoke.
    
    * guix/build/ruby-build-system.scm (install): Use invoke.
---
 guix/build/ruby-build-system.scm | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/guix/build/ruby-build-system.scm b/guix/build/ruby-build-system.scm
index ba0de12..49400b2 100644
--- a/guix/build/ruby-build-system.scm
+++ b/guix/build/ruby-build-system.scm
@@ -143,14 +143,13 @@ GEM-FLAGS are passed to the 'gem' invokation, if present."
          (gem-dir (string-append vendor-dir "/gems/" gem-name)))
     (setenv "GEM_VENDOR" vendor-dir)
 
-    (or (zero?
-         (apply system* "gem" "install" gem-file
-                "--verbose"
-                "--local" "--ignore-dependencies" "--vendor"
-                ;; Executables should go into /bin, not
-                ;; /lib/ruby/gems.
-                "--bindir" (string-append out "/bin")
-                gem-flags))
+    (or (apply invoke "gem" "install" gem-file
+               "--verbose"
+               "--local" "--ignore-dependencies" "--vendor"
+               ;; Executables should go into /bin, not
+               ;; /lib/ruby/gems.
+               "--bindir" (string-append out "/bin")
+               gem-flags)
         (begin
           (let ((failed-output-dir (string-append (getcwd) "/out")))
             (mkdir failed-output-dir)