* modules/shepherd/service.scm (service-list): Remove duplicates from the final list. --- modules/shepherd/service.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/modules/shepherd/service.scm b/modules/shepherd/service.scm index 7cf557f..0a13626 100644 --- a/modules/shepherd/service.scm +++ b/modules/shepherd/service.scm @@ -827,10 +827,12 @@ Return #f if service is not found." (define (service-list) "Return the list of services currently defined." - (hash-fold (lambda (key services result) - (append services result)) - '() - %services)) + (delete-duplicates + (hash-fold (lambda (key services result) + (append services result)) + '() + %services) + eq?)) (define (find-service pred) "Return the first service that matches PRED, or #f if none was found." -- 2.6.3
