~ruther/guix-local

a3d37f3ae5c7e07b981196b671e213692b554ad9 — Ludovic Courtès 8 years ago 2373513
services: 'fold-service-types' honors its seed.

* gnu/services.scm (fold-service-types): Use SEED instead of '().
1 files changed, 1 insertions(+), 1 deletions(-)

M gnu/services.scm
M gnu/services.scm => gnu/services.scm +1 -1
@@ 184,7 184,7 @@ is used as the initial value of RESULT."
                                  (if (service-type? object)
                                      (proc object result)
                                      result))
                                '()
                                seed
                                modules))

;; Services of a given type.