Browse Source

packages: 'fold-packages' takes an optional 'modules' parameter.

Suggested by Christopher Baines <mail@cbaines.net>.

* gnu/packages.scm (fold-packages): Add optional 'modules' parameter and
honor it.
gn-latest-20200428
Ludovic Courtès 4 years ago
parent
commit
5c5ae46c00
No known key found for this signature in database GPG Key ID: 90B11993D9AEBB5
  1. 12
      gnu/packages.scm

12
gnu/packages.scm

@ -140,17 +140,19 @@ for system '~a'")
directory))
%load-path)))
(define (fold-packages proc init)
"Call (PROC PACKAGE RESULT) for each available package, using INIT as
the initial value of RESULT. It is guaranteed to never traverse the
same package twice."
(define* (fold-packages proc init
#:optional
(modules (all-modules (%package-module-path))))
"Call (PROC PACKAGE RESULT) for each available package defined in one of
MODULES, using INIT as the initial value of RESULT. It is guaranteed to never
traverse the same package twice."
(fold-module-public-variables (lambda (object result)
(if (and (package? object)
(not (hidden-package? object)))
(proc object result)
result))
init
(all-modules (%package-module-path))))
modules))
(define find-packages-by-name
(let ((packages (delay

Loading…
Cancel
Save