gnu: mercury: Remove trailing #T from phases and snippet.

* gnu/packages/mercury.scm (mercury)[arguments]<#:phases>: Remove trailing #T.

Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
This commit is contained in:
jgart 2022-02-18 01:16:13 -05:00 committed by Mathieu Othacehe
parent c116376542
commit 779acb0ba1
No known key found for this signature in database
GPG key ID: 8354763531769CA6

View file

@ -100,8 +100,7 @@ (define-public mercury-minimal
(invoke "mv" orig-name new-name) (invoke "mv" orig-name new-name)
(with-directory-excursion new-name (with-directory-excursion new-name
(apply patch-source-shebangs (list #:source src))))) (apply patch-source-shebangs (list #:source src)))))
`((,libatomic-ops "source" "boehm_gc/libatomic_ops"))) `((,libatomic-ops "source" "boehm_gc/libatomic_ops"))))))
#t)))
(add-after 'replace-boehm-gc 'patch-paths (add-after 'replace-boehm-gc 'patch-paths
(lambda _ (lambda _
(substitute* (substitute*
@ -133,8 +132,7 @@ (define-public mercury-minimal
"boehm_gc/Makefile.direct") "boehm_gc/Makefile.direct")
(("/bin/sh") (which "sh")) (("/bin/sh") (which "sh"))
(("/bin/pwd") (which "pwd")) (("/bin/pwd") (which "pwd"))
(("/bin/rm") (which "rm"))) (("/bin/rm") (which "rm"))))))))
#t)))))
(native-inputs (native-inputs
`(("texinfo" ,texinfo) `(("texinfo" ,texinfo)
("flex" ,flex) ("flex" ,flex)
@ -227,12 +225,10 @@ (define-public mercury
(("/bin/sh") (which "sh")) (("/bin/sh") (which "sh"))
(("/bin/pwd") (which "pwd")) (("/bin/pwd") (which "pwd"))
(("/bin/rm") (which "rm")) (("/bin/rm") (which "rm"))
(("boehm_gc/.git") "boehm_gc")) (("boehm_gc/.git") "boehm_gc"))))
#t))
(replace 'bootstrap (replace 'bootstrap
(lambda _ (lambda _
(invoke "./prepare.sh") (invoke "./prepare.sh")))))))
#t))))))
;; TODO: Uncomment phase when tests are enabled. ;; TODO: Uncomment phase when tests are enabled.
;; (replace 'check ;; (replace 'check
;; (lambda _ ;; (lambda _