guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

09/14: gnu: talloc/static: Use INVOKE.


From: guix-commits
Subject: 09/14: gnu: talloc/static: Use INVOKE.
Date: Fri, 25 Jan 2019 08:02:34 -0500 (EST)

rekado pushed a commit to branch master
in repository guix.

commit d83c52c6bb0401ae75245598328d480dd77c5a5e
Author: Ricardo Wurmus <address@hidden>
Date:   Fri Jan 25 13:39:12 2019 +0100

    gnu: talloc/static: Use INVOKE.
    
    * gnu/packages/samba.scm (talloc/static)[arguments]: Use INVOKE in the build
    phase.
---
 gnu/packages/samba.scm | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/samba.scm b/gnu/packages/samba.scm
index 213e416..d3c0539 100644
--- a/gnu/packages/samba.scm
+++ b/gnu/packages/samba.scm
@@ -287,15 +287,9 @@ destructors.  It is the core memory allocator used in 
Samba.")
         `(modify-phases ,phases
            (replace 'build
              (lambda _
-               (letrec-syntax ((shell (syntax-rules ()
-                                        ((_ (command ...) rest ...)
-                                         (and (zero? (system* command ...))
-                                              (shell rest ...)))
-                                        ((_)
-                                         #t))))
-                 (shell ("gcc" "-c" "-Ibin/default" "-I" "lib/replace"
-                         "-I." "-Wall" "-g" "talloc.c")
-                        ("ar" "rc" "libtalloc.a" "talloc.o")))))
+               (invoke "gcc" "-c" "-Ibin/default" "-I" "lib/replace"
+                       "-I." "-Wall" "-g" "talloc.c")
+               (invoke "ar" "rc" "libtalloc.a" "talloc.o")))
            (replace 'install
              (lambda* (#:key outputs #:allow-other-keys)
                (let* ((out     (assoc-ref outputs "out"))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]