~ruther/guix-local

e1f02f92e90dac57431c3a0c557162fe1d5e9192 — Ludovic Courtès 9 years ago 23b9168
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) ...)'.
3 files changed, 3 insertions(+), 3 deletions(-)

M gnu/packages/bioinformatics.scm
M guix/import/cran.scm
M guix/import/elpa.scm
M gnu/packages/bioinformatics.scm => gnu/packages/bioinformatics.scm +1 -1
@@ 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")

M guix/import/cran.scm => guix/import/cran.scm +1 -1
@@ 336,7 336,7 @@ dependencies."
              (cran->guix-package (next state) repo))

            ;; predicate
            (compose not done?)
            (negate done?)

            ;; generator: update the queue
            (lambda (state)

M guix/import/elpa.scm => guix/import/elpa.scm +1 -1
@@ 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."