[shepherd] 01/04: service: Default termination handler avoids raw 'running' slot access.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository shepherd.

commit 069f27138cced052997a2a0add640e522e0672ea
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Apr 6 11:05:36 2022 +0200

    service: Default termination handler avoids raw 'running' slot access.
    
    * modules/shepherd/service.scm (default-service-termination-handler):
    Use 'service-running-value' instead of 'slot-ref'.
---
 modules/shepherd/service.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/modules/shepherd/service.scm b/modules/shepherd/service.scm
index 90cccd6..89732ae 100644
--- a/modules/shepherd/service.scm
+++ b/modules/shepherd/service.scm
@@ -193,19 +193,19 @@ Log abnormal termination reported by @var{status}."
            (lambda (code)
              (local-output (l10n "Service ~a (PID ~a) exited with ~a.")
                            (canonical-name service)
-                           (slot-ref service 'running) code)))
+                           (service-running-value service) code)))
           ((status:term-sig status)
            =>
            (lambda (signal)
              (local-output (l10n "Service ~a (PID ~a) terminated with signal 
~a.")
                            (canonical-name service)
-                           (slot-ref service 'running) signal)))
+                           (service-running-value service) signal)))
           ((status:stop-sig status)
            =>
            (lambda (signal)
              (local-output (l10n "Service ~a (PID ~a) stopped with signal ~a.")
                            (canonical-name service)
-                           (slot-ref service 'running) signal)))))
+                           (service-running-value service) signal)))))
 
   (respawn-service service))