03/06: services: 'fold-service-types' honors its seed.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit a3d37f3ae5c7e07b981196b671e213692b554ad9
Author: Ludovic Courtès <address@hidden>
Date:   Wed Nov 8 13:24:24 2017 +0100

    services: 'fold-service-types' honors its seed.
    
    * gnu/services.scm (fold-service-types): Use SEED instead of '().
---
 gnu/services.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gnu/services.scm b/gnu/services.scm
index 50be28a..89c5d52 100644
--- a/gnu/services.scm
+++ b/gnu/services.scm
@@ -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.