(use-modules (gnu services) (srfi srfi-1) (srfi srfi-26)) (define (provides-setuid-programs? type) (find (lambda (extension) (eq? (service-extension-target extension) setuid-program-service-type)) (service-type-extensions type))) (define (service-types/setuid) (fold-service-types (lambda (type result) (if (provides-setuid-programs? type) (cons type result) result)) '()))