diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-12-18 09:54:42 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-12-18 09:54:42 +0300 |
| commit | 0d0422034709f55cf25697607ca03069dd7bdd46 (patch) | |
| tree | 122810a7b9fe89c451adefe0be10b6d510f6c59e /modules/ssh/dist | |
| parent | api-popen.texi: Add a reference to the Guile manual (diff) | |
| download | guile-ssh-0d0422034709f55cf25697607ca03069dd7bdd46.tar.gz | |
node.scm (node-run-server): Use a remote pipe
* modules/ssh/dist/node.scm (node-run-server): Use a remote pipe to execute a
command.
Diffstat (limited to 'modules/ssh/dist')
| -rw-r--r-- | modules/ssh/dist/node.scm | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/modules/ssh/dist/node.scm b/modules/ssh/dist/node.scm index 86245c5..d90cfef 100644 --- a/modules/ssh/dist/node.scm +++ b/modules/ssh/dist/node.scm @@ -270,13 +270,11 @@ listens on an expected port, return #f otherwise." (define (node-run-server node) "Run a RREPL server on a NODE." - (let ((c (make-channel (node-session node)))) - (channel-open-session c) - (channel-request-exec c (format #f "nohup guile --listen=~a 0<&- &>/dev/null" - (node-repl-port node))) - (close c) - (while (not (node-server-running? node)) - (usleep 100)))) + (open-remote-input-pipe (node-session node) + (format #f "nohup guile --listen=~a 0<&- &>/dev/null" + (node-repl-port node))) + (while (not (node-server-running? node)) + (usleep 100))) (define (node-open-rrepl node) "Open a RREPL. Return a new RREPL channel." |