diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-12-25 07:14:32 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-12-25 07:14:32 +0300 |
| commit | e1a1cd624d7d678251488873c2b3f1a7be1fef6e (patch) | |
| tree | a1510b320dc1b7aa60aacd2f9ace09b5a0b45479 /modules/ssh/dist | |
| parent | shell.scm (pgrep, pkill): Use '-f' instead of '--full' (diff) | |
| download | guile-ssh-e1a1cd624d7d678251488873c2b3f1a7be1fef6e.tar.gz | |
node.scm (node-server-running?): Fix the check
* modules/ssh/dist/node.scm (node-server-running?) <guile-up-and-running?>:
Fix the check.
Diffstat (limited to 'modules/ssh/dist')
| -rw-r--r-- | modules/ssh/dist/node.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/modules/ssh/dist/node.scm b/modules/ssh/dist/node.scm index af7fb71..7562902 100644 --- a/modules/ssh/dist/node.scm +++ b/modules/ssh/dist/node.scm @@ -268,8 +268,8 @@ listens on an expected port, return #f otherwise." (and (channel-open? rp) (let ((line (read-line rp))) (close rp) - (and (not (eof-object? line))) - (string-match "^GNU Guile .*" line))))) + (and (not (eof-object? line)) + (string-match "^GNU Guile .*" line)))))) (let ((pgrep? (pgrep-available?))) (unless pgrep? |