nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: talloc/static: Use INVOKE. 

* 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 @@ 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 ...) "-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"))