[dmd] 04/05: deco: 'run-command' expects symbols.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository dmd.

commit cf5257705263d49bef2c76de89e362c930603174
Author: Ludovic Courtès <address@hidden>
Date:   Sat Jan 9 12:02:57 2016 +0100

    deco: 'run-command' expects symbols.
    
    * modules/deco.scm (run-command): Expect SERVICE and ACTION to be
    symbols.
    (main): Adjust accordingly.
---
 modules/deco.scm |   10 +++++-----
 1 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/modules/deco.scm b/modules/deco.scm
index 2af1207..87f27c2 100644
--- a/modules/deco.scm
+++ b/modules/deco.scm
@@ -39,9 +39,7 @@ the daemon via SOCKET-FILE."
   (with-system-error-handling
    (let ((sock (open-connection socket-file)))
      ;; Send the command.
-     (write-command (dmd-command (string->symbol action)
-                                 (string->symbol service)
-                                 #:arguments args)
+     (write-command (dmd-command action service #:arguments args)
                     sock)
 
      ;; Receive output.
@@ -75,9 +73,11 @@ the daemon via SOCKET-FILE."
 
     (match (reverse command-args)
       (((and action (or "status" "detailed-status"))) ;one argument
-       (run-command socket-file action "dmd" '()))
+       (run-command socket-file (string->symbol action) 'dmd '()))
       ((action service args ...)
-       (run-command socket-file action service args))
+       (run-command socket-file
+                    (string->symbol action)
+                    (string->symbol service) args))
       (_
        (format (current-error-port)
                (l10n "Usage: deco ACTION [SERVICE [OPTIONS...]]~%"))