services: 'fold-service-types' honors its seed.
* gnu/services.scm (fold-service-types): Use SEED instead of '().
This commit is contained in:
parent
23735137eb
commit
a3d37f3ae5
|
@ -184,7 +184,7 @@ is used as the initial value of RESULT."
|
||||||
(if (service-type? object)
|
(if (service-type? object)
|
||||||
(proc object result)
|
(proc object result)
|
||||||
result))
|
result))
|
||||||
'()
|
seed
|
||||||
modules))
|
modules))
|
||||||
|
|
||||||
;; Services of a given type.
|
;; Services of a given type.
|
||||||
|
|
Loading…
Reference in New Issue