diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-12-13 23:50:57 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-12-13 23:50:57 +0300 |
| commit | 3687c3c69da9394c795c6bda3ae3f9a3421315a5 (patch) | |
| tree | 03684f9bc644238c035c6042e3a5ee560d398766 /modules/ssh/dist | |
| parent | shell.scm: New module (diff) | |
| download | guile-ssh-3687c3c69da9394c795c6bda3ae3f9a3421315a5.tar.gz | |
shell.scm (command-available?): New procedure
* modules/ssh/shell.scm (command-available?): New procedure.
* modules/ssh/dist/node.scm (node-server-running?): Use it.
Diffstat (limited to 'modules/ssh/dist')
| -rw-r--r-- | modules/ssh/dist/node.scm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/modules/ssh/dist/node.scm b/modules/ssh/dist/node.scm index 2091aa1..e594904 100644 --- a/modules/ssh/dist/node.scm +++ b/modules/ssh/dist/node.scm @@ -262,9 +262,7 @@ result, a number of the evaluation, a module name and a language name. Throw listens on an expected port, return #f otherwise." (define (pgrep-available?) "Check if 'pgrep' from procps is available on the node." - (receive (result rc) - (which (node-session node) "pgrep") - (zero? rc))) + (command-available? (node-session node) "pgrep")) (define (guile-up-and-running?) (let ((rp (tunnel-open-forward-channel (node-tunnel node)))) (and (channel-open? rp) |