From a3d37f3ae5c7e07b981196b671e213692b554ad9 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Wed, 8 Nov 2017 13:24:24 +0100
Subject: 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 50be28a382..89c5d52c83 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.
-- 
cgit v1.2.3