[dmd] 01/02: Display the value of the 'running' slot in 'status' commands.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository dmd.

commit ac655cb9d43012cb29712e69f86e7fd4b739c173
Author: Ludovic Courtès <address@hidden>
Date:   Mon Jul 7 23:10:18 2014 +0200

    Display the value of the 'running' slot in 'status' commands.
    
    * modules/dmd/service.scm (dmd-status): When OBJ is running, show the
      value of the 'running' slot.
---
 modules/dmd/service.scm |    8 +++++---
 1 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/modules/dmd/service.scm b/modules/dmd/service.scm
index ffa3a68..9ce2cd9 100644
--- a/modules/dmd/service.scm
+++ b/modules/dmd/service.scm
@@ -402,11 +402,13 @@
   (local-output "Status of ~a:"
                (canonical-name obj))
   (if (running? obj)
-      (local-output "  It is started.")
-    (local-output "  It is stopped."))
+      (begin
+        (local-output "  It is started.")
+        (local-output "  Running value is ~s." (slot-ref obj 'running)))
+      (local-output "  It is stopped."))
   (if (enabled? obj)
       (local-output "  It is enabled.")
-    (local-output "  It is disabled."))
+      (local-output "  It is disabled."))
   (local-output "  Provides ~a." (provided-by obj))
   (local-output "  Requires ~a." (required-by obj))
   (local-output "  Conflicts with ~a." (conflicts-with obj))