diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-10-17 11:19:48 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-10-17 11:19:48 +0300 |
| commit | 247d341e43618c154b5f7b75ed245efb0a45325c (patch) | |
| tree | c93881ca898aa5c5e92b42da90b24a0b1ce22edd /modules/ssh/dist | |
| parent | modules/ssh/dist/node.scm (run-rrepl-server): Bugfix: s/msleep/usleep/ (diff) | |
| download | guile-ssh-247d341e43618c154b5f7b75ed245efb0a45325c.tar.gz | |
node.scm (rrepl-running?): Close a RREPL port
* modules/ssh/dist/node.scm (rrepl-running?): Close a RREPL port explicitly.
Diffstat (limited to 'modules/ssh/dist')
| -rw-r--r-- | modules/ssh/dist/node.scm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/modules/ssh/dist/node.scm b/modules/ssh/dist/node.scm index 98b5adf..b811d3e 100644 --- a/modules/ssh/dist/node.scm +++ b/modules/ssh/dist/node.scm @@ -254,6 +254,7 @@ listens on an expected port, return #f otherwise." (let ((rp (tunnel-open-forward-channel (node-tunnel node)))) (and (channel-open? rp) (let ((line (read-line rp))) + (close rp) (and (not (eof-object? line)) (string-match "^GNU Guile .*" line))))))) |