diff options
Diffstat (limited to 'modules/ssh/dist/node.scm')
| -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))))) |