09/23: gnu: squeak-vm: Return #t from phases.

[Tobias Geerinckx-Rice]

nckx pushed a commit to branch master
in repository guix.

commit d9a7fab6471260465fa8a7b95b91e17bcf00b13f
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Tue Jun 26 15:36:18 2018 +0200

    gnu: squeak-vm: Return #t from phases.
    
    * gnu/packages/smalltalk.scm (squeak-vm)[arguments]: Substitute INVOKE
    for SYSTEM*. Return #t rather than undefined from phases.
---
 gnu/packages/smalltalk.scm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/smalltalk.scm b/gnu/packages/smalltalk.scm
index c0c53a5..9b36d83 100644
--- a/gnu/packages/smalltalk.scm
+++ b/gnu/packages/smalltalk.scm
@@ -3,6 +3,7 @@
 ;;; Copyright © 2016 Efraim Flashner <address@hidden>
 ;;; Copyright © 2016 Nicolas Goaziou <address@hidden>
 ;;; Copyright © 2016 Ludovic Courtès <address@hidden>
+;;; Copyright © 2018 Tobias Geerinckx-Rice <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -132,14 +133,15 @@ such as ones for networking and GUI programming.")
            (lambda* (#:key outputs #:allow-other-keys)
              (let ((out (assoc-ref outputs "out")))
                (with-directory-excursion "bld"
-                 (zero?
-                  (system* "../unix/cmake/configure"
+                 (invoke "../unix/cmake/configure"
                            (string-append "--prefix=" out)
-                           "--without-quartz"))))))
+                           "--without-quartz")
+                 #t))))
          (replace 'build
            (lambda _
              (with-directory-excursion "bld"
-               (zero? (system* "make"))))))))
+               (invoke "make"))
+             #t)))))
     (synopsis "Smalltalk programming language and environment")
     (description "Squeak is a full-featured implementation of the Smalltalk
 programming language and environment based on (and largely compatible with)