diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2019-01-25 15:20:25 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2019-01-25 15:20:25 +0100 |
| commit | 02d38bd3a2c964698ef08524d6313b726ce63846 (patch) | |
| tree | 94a0e57b2e017ba80a9f7309aae241862ea2e81f /gnu/packages/samba.scm | |
| parent | 2b965485e2f3a8755efff58fc1abad75df3e37a0 (diff) | |
| parent | 776248419fe521afe9c6dd4b2fac6fc4b8b18e9b (diff) | |
| download | patches-02d38bd3a2c964698ef08524d6313b726ce63846.tar patches-02d38bd3a2c964698ef08524d6313b726ce63846.tar.gz | |
Merge branch 'master' into staging
Diffstat (limited to 'gnu/packages/samba.scm')
| -rw-r--r-- | gnu/packages/samba.scm | 28 |
1 files changed, 11 insertions, 17 deletions
diff --git a/gnu/packages/samba.scm b/gnu/packages/samba.scm index 213e416a4d..5ddc8748f3 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")) @@ -326,9 +320,9 @@ destructors. It is the core memory allocator used in Samba.") ;; tevent uses a custom configuration script that runs waf. (lambda* (#:key outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out"))) - (zero? (system* "./configure" - (string-append "--prefix=" out) - "--bundled-libraries=NONE")))))))) + (invoke "./configure" + (string-append "--prefix=" out) + "--bundled-libraries=NONE"))))))) (native-inputs `(("pkg-config" ,pkg-config) ("python" ,python-2))) @@ -374,11 +368,11 @@ many event types, including timers, signals, and the classic file descriptor eve ;; ldb use a custom configuration script that runs waf. (lambda* (#:key outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out"))) - (zero? (system* "./configure" - (string-append "--prefix=" out) - (string-append "--with-modulesdir=" out - "/lib/ldb/modules") - "--bundled-libraries=NONE")))))))) + (invoke "./configure" + (string-append "--prefix=" out) + (string-append "--with-modulesdir=" out + "/lib/ldb/modules") + "--bundled-libraries=NONE"))))))) (native-inputs `(("cmocka" ,cmocka) ("pkg-config" ,pkg-config) |