ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

12
gnu/packages/samba.scm
View file

@ -287,15 +287,9 @@ (define-public talloc/static
`(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 ...) "-I." "-Wall" "-g" "talloc.c")
(and (zero? (system* command ...)) (invoke "ar" "rc" "libtalloc.a" "talloc.o")))
(shell rest ...)))
((_)
#t))))
(shell ("gcc" "-c" "-Ibin/default" "-I" "lib/replace"
"-I." "-Wall" "-g" "talloc.c")
("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"))