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

gnu: fasttree: Use INVOKE. 

* gnu/packages/bioinformatics.scm (fasttree)[arguments]: Use INVOKE; simplify
install phase.
This commit is contained in:
Ricardo Wurmus 2018-10-21 21:30:53 +02:00
parent 38622ccd14
commit 0db75f7a79
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 22 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
gnu/packages/bioinformatics.scm
View File

@ -2537,31 +2537,30 @@ similarity of community members.")
(delete 'configure) (delete 'configure)
(replace 'build (replace 'build
(lambda* (#:key source #:allow-other-keys) (lambda* (#:key source #:allow-other-keys)
(and (zero? (system* "gcc" (invoke "gcc"
"-O3" "-O3"
"-finline-functions" "-finline-functions"
"-funroll-loops" "-funroll-loops"
"-Wall" "-Wall"
"-o" "-o"
"FastTree" "FastTree"
source source
"-lm")) "-lm")
(zero? (system* "gcc" (invoke "gcc"
"-DOPENMP" "-DOPENMP"
"-fopenmp" "-fopenmp"
"-O3" "-O3"
"-finline-functions" "-finline-functions"
"-funroll-loops" "-funroll-loops"
"-Wall" "-Wall"
"-o" "-o"
"FastTreeMP" "FastTreeMP"
source source
"-lm"))))) "-lm")
#t))
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((bin (string-append (assoc-ref outputs "out") (let ((bin (string-append (assoc-ref outputs "out") "/bin")))
"/bin")))
(mkdir-p bin)
(install-file "FastTree" bin) (install-file "FastTree" bin)
(install-file "FastTreeMP" bin) (install-file "FastTreeMP" bin)
#t)))))) #t))))))