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

[Ludovic Courtès]

civodul pushed a commit to branch wip-fibers
in repository shepherd.

commit 57c71ba247db22ea5e539d3d32b3b1c8ad890c1c
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))))))