[shepherd] 24/32: shepherd: "shepherd -s -" replies to the current output port.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository shepherd.

commit 540da788c6726077c7a7b347edccb81646600c2b
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Mar 28 16:00:51 2022 +0200

    shepherd: "shepherd -s -" replies to the current output port.
    
    * modules/shepherd.scm (process-textual-commands):
    Pass (current-output-port) as the second argument to 'process-command'.
---
 modules/shepherd.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/modules/shepherd.scm b/modules/shepherd.scm
index 9fec3fb..16c242e 100644
--- a/modules/shepherd.scm
+++ b/modules/shepherd.scm
@@ -509,7 +509,7 @@ would write them on the 'herd' command line."
              (process-command (shepherd-command (string->symbol action)
                                                 (string->symbol service)
                                                 #:arguments arguments)
-                              port))
+                              (current-output-port)))
             (_
              (local-output (l10n "invalid command line") line)))
           (loop (read-line port))))))