[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch wip-hurd-vm updated: HACK shepherd.conf: print .SCM source of fil
From: |
guix-commits |
Subject: |
branch wip-hurd-vm updated: HACK shepherd.conf: print .SCM source of file that's being loaded |
Date: |
Sat, 02 May 2020 08:03:32 -0400 |
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...~%")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- branch wip-hurd-vm updated: HACK shepherd.conf: print .SCM source of file that's being loaded,
guix-commits <=