services: 'fold-service-types' honors its seed.

* gnu/services.scm (fold-service-types): Use SEED instead of '().
2025-01-11 13:49:23 -05:00 · 2017-11-08 13:24:24 +01:00 · 2017-11-08 13:24:24 +01:00 · a3d37f3ae5
commit a3d37f3ae5
parent 23735137eb
1 changed files with 1 additions and 1 deletions
--- a/gnu/services.scm
+++ b/gnu/services.scm
@ -184,7 +184,7 @@ (define* (fold-service-types proc seed
                                  (if (service-type? object)
                                      (proc object result)
                                      result))
-                                '()
+                                seed
                                modules))

 ;; Services of a given type.