diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2017-01-01 10:10:49 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2017-01-01 10:10:49 +0300 |
| commit | faf30806e1483191889d63a405c32234b67ca6c0 (patch) | |
| tree | 5a299c617d255ebdd4fb4dad59c7c5be269197ef /modules/ssh | |
| parent | node.scm (node-loadavg): New procedure (diff) | |
| download | guile-ssh-faf30806e1483191889d63a405c32234b67ca6c0.tar.gz | |
node.scm (rrepl-skip-to-prompt): Use 'when'
* modules/ssh/dist/node.scm (rrepl-skip-to-prompt): Use 'when'.
Diffstat (limited to 'modules/ssh')
| -rw-r--r-- | modules/ssh/dist/node.scm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/modules/ssh/dist/node.scm b/modules/ssh/dist/node.scm index e4926fc..901290c 100644 --- a/modules/ssh/dist/node.scm +++ b/modules/ssh/dist/node.scm @@ -153,10 +153,8 @@ to #t then a REPL server will be stopped as soon as an evaluation is done." "Read from REPL-CHANNEL until REPL is observed. Throw 'node-error' on an error." (let loop ((line (read-line repl-channel))) - - (and (eof-object? line) - (node-error "Could not locate REPL prompt" repl-channel)) - + (when (eof-object? line) + (node-error "Could not locate REPL prompt" repl-channel)) (or (string=? "Enter `,help' for help." line) (loop (read-line repl-channel))))) |