me/guix
Archived
1
0
Fork 0
Code Activity

gnu: talloc/static: Use INVOKE.

Browse source 
* gnu/packages/samba.scm (talloc/static)[arguments]: Use INVOKE in the build
phase.
This commit is contained in:
Ricardo Wurmus 2019-01-25 13:39:12 +01:00
parent ed5900890e
commit d83c52c6bb
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 3 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gnu/packages/samba.scm
View file

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