diff --git a/gnu/services/shepherd.scm b/gnu/services/shepherd.scm index 826a3c2215..77c4d0a8be 100644 --- a/gnu/services/shepherd.scm +++ b/gnu/services/shepherd.scm @@ -146,7 +146,7 @@ (define %default-modules ;; Default set of modules visible in a service's file. `((shepherd service) (oop goops) - (guix build utils) + ((guix build utils) #:hide (delete)) (guix build syscalls))) (define-record-type* @@ -315,7 +315,9 @@ (define config (call-with-error-handling (lambda () (apply register-services - (map load-compiled '#$(map scm->go files))))) + (parameterize ((current-warning-port + (%make-void-port "w"))) + (map load-compiled '#$(map scm->go files)))))) (format #t "starting services...~%") (for-each (lambda (service)