Replace (compose not PROC) with simpler idioms.

* gnu/packages/bioinformatics.scm (python-pysam)[arguments] <check>:
Use (negate proc) instead of (compose not proc).
* guix/import/cran.scm (recursive-import): Likewise.
* guix/import/elpa.scm (filter-dependencies): Use 'remove' instead of
'(filter (compose not proc) ...)'.
This commit is contained in:
Ludovic Courtès 2017-03-28 17:12:20 +02:00
parent 23b9168dcd
commit e1f02f92e9
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
3 changed files with 3 additions and 3 deletions

View File

@ -1454,7 +1454,7 @@ multiple sequence alignments.")
(getenv "PYTHONPATH")
":" (getcwd) "/build/"
(car (scandir "build"
(compose not (cut string-prefix? "." <>))))))
(negate (cut string-prefix? "." <>))))))
;; Step out of source dir so python does not import from CWD.
(with-directory-excursion "tests"
(setenv "HOME" "/tmp")

View File

@ -336,7 +336,7 @@ dependencies."
(cran->guix-package (next state) repo))
;; predicate
(compose not done?)
(negate done?)
;; generator: update the queue
(lambda (state)

View File

@ -57,7 +57,7 @@ past were distributed separately from Emacs."
(define (filter-dependencies names)
"Remove the package names included with Emacs from the list of
NAMES (strings)."
(filter (compose not emacs-standard-library?) names))
(remove emacs-standard-library? names))
(define (elpa-name->package-name name)
"Given the NAME of an Emacs package, return the corresponding Guix name."