me/guix
Archived
1
0
Fork 0
Code Activity

services: Check if service is #f before applying clause.

Browse source 
* gnu/services.scm (apply-clauses): Check if service is #f before trying to
apply clause.  Follow up of 1819512073.
This commit is contained in:
Josselin Poiret 2023-06-06 13:18:46 +02:00
parent 0ae29db11d
commit 1a2eb26286
No known key found for this signature in database
GPG key ID: 505E40B916171A8A
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gnu/services.scm
View file

@ -343,12 +343,14 @@ used."
((head . tail) ((head . tail)
(let ((service clauses (let ((service clauses
(fold2 (lambda (clause service remainder) (fold2 (lambda (clause service remainder)
(if service
(match clause (match clause
((kind proc properties) ((kind proc properties)
(if (eq? kind (service-kind service)) (if (eq? kind (service-kind service))
(values (proc service) remainder) (values (proc service) remainder)
(values service (values service
(cons clause remainder)))))) (cons clause remainder)))))
(values #f (cons clause remainder))))
head head
'() '()
clauses))) clauses)))