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

* gnu/services.scm (fold-service-types): Use SEED instead of '().
This commit is contained in:
Ludovic Courtès 2017-11-08 13:24:24 +01:00
parent 23735137eb
commit a3d37f3ae5
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 1 additions and 1 deletions

View File

@ -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.