From 1a2eb26286c72ac2754969f53f5833b053b96b67 Mon Sep 17 00:00:00 2001
From: Josselin Poiret <dev@jpoiret.xyz>
Date: Tue, 6 Jun 2023 13:18:46 +0200
Subject: services: Check if service is #f before applying clause.

* gnu/services.scm (apply-clauses): Check if service is #f before trying to
apply clause.  Follow up of 181951207339508789b28ba7cb914f983319920f.
---
 gnu/services.scm | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

(limited to 'gnu/services.scm')

diff --git a/gnu/services.scm b/gnu/services.scm
index 5410d31971..109e050a23 100644
--- a/gnu/services.scm
+++ b/gnu/services.scm
@@ -343,12 +343,14 @@ used."
       ((head . tail)
        (let ((service clauses
                       (fold2 (lambda (clause service remainder)
-                               (match clause
-                                 ((kind proc properties)
-                                  (if (eq? kind (service-kind service))
-                                      (values (proc service) remainder)
-                                      (values service
-                                              (cons clause remainder))))))
+                               (if service
+                                   (match clause
+                                     ((kind proc properties)
+                                      (if (eq? kind (service-kind service))
+                                          (values (proc service) remainder)
+                                          (values service
+                                                  (cons clause remainder)))))
+                                   (values #f (cons clause remainder))))
                              head
                              '()
                              clauses)))
-- 
cgit v1.2.3