diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2018-11-08 09:11:38 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2018-11-08 09:11:38 +0100 |
| commit | 179416467fce3b66fa4746e3ed92795b27e1f192 (patch) | |
| tree | 43243b6efba4348c65396de9c50072ec4067b07a /gnu/packages | |
| parent | 0881d62f2528187420ea049200138d15984d6c05 (diff) | |
| download | guix-179416467fce3b66fa4746e3ed92795b27e1f192.tar guix-179416467fce3b66fa4746e3ed92795b27e1f192.tar.gz | |
gnu: muscle: Use INVOKE.
* gnu/packages/bioinformatics.scm (muscle)[arguments]: Use INVOKE and
return #T unconditionally.
Diffstat (limited to 'gnu/packages')
| -rw-r--r-- | gnu/packages/bioinformatics.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm index 8b1170fd47..b453b46873 100644 --- a/gnu/packages/bioinformatics.scm +++ b/gnu/packages/bioinformatics.scm @@ -4236,12 +4236,13 @@ that a read originated from a particular isoform.") (delete 'configure) (replace 'check ;; There are no tests, so just test if it runs. - (lambda _ (zero? (system* "./muscle" "-version")))) + (lambda _ (invoke "./muscle" "-version") #t)) (replace 'install (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (bin (string-append out "/bin"))) - (install-file "muscle" bin))))))) + (install-file "muscle" bin) + #t)))))) (home-page "http://www.drive5.com/muscle") (synopsis "Multiple sequence alignment program") (description |