branch wip-hurd-vm updated: HACK shepherd.conf: print .SCM source of file that's being loaded

[guix-commits]

This is an automated email from the git hooks/post-receive script.

janneke pushed a commit to branch wip-hurd-vm
in repository guix.

The following commit(s) were added to refs/heads/wip-hurd-vm by this push:
     new 3fe6b75  HACK shepherd.conf: print .SCM source of file that's being 
loaded
3fe6b75 is described below

commit 3fe6b75dc4d35986042fae35da9e9d2750476439
Author: Jan (janneke) Nieuwenhuizen <address@hidden>
AuthorDate: Sat May 2 14:02:55 2020 +0200

    HACK shepherd.conf: print .SCM source of file that's being loaded
---
 gnu/services/shepherd.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/gnu/services/shepherd.scm b/gnu/services/shepherd.scm
index 6d76cda..2248a4d 100644
--- a/gnu/services/shepherd.scm
+++ b/gnu/services/shepherd.scm
@@ -311,13 +311,14 @@ and return the resulting '.go' file."
           (call-with-error-handling
            (lambda ()
              (for-each
-              (lambda (file)
-                (format #t "loading file...~s\n" file)
-                (format (current-error-port) "loading file...~s\n" file)
-                (let ((services (load-compiled file)))
+              (lambda (scm go)
+                (format #t "loading file...~s\n" scm)
+                (format (current-error-port) "loading file...~s\n" scm)
+                (let ((services (load-compiled go)))
                   (format #t "register...~s\n" services)
                   (format (current-error-port) "register...~s\n" services)
                   (register-services services)))
+              '#$files
               '#$(map scm->go files))))
 
           (format #t "starting services...~%")