diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-10-29 21:30:06 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-10-29 21:30:06 +0300 |
| commit | dc95a5de1878a59553084de157bdb78648a84349 (patch) | |
| tree | b6b5bc8a12ee983e3889baa7adcaee40b1a473de /modules/ssh | |
| parent | node.scm (rrepl-get-result): Clarify the things (diff) | |
| download | guile-ssh-dc95a5de1878a59553084de157bdb78648a84349.tar.gz | |
node.scm (rrepl-get-result): Wrap a long line
* modules/ssh/dist/node.scm (rrepl-get-result) <read-result>: Wrap a long
line.
Diffstat (limited to 'modules/ssh')
| -rw-r--r-- | modules/ssh/dist/node.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/modules/ssh/dist/node.scm b/modules/ssh/dist/node.scm index a049a15..ead5ebf 100644 --- a/modules/ssh/dist/node.scm +++ b/modules/ssh/dist/node.scm @@ -196,7 +196,8 @@ name. Throw 'node-repl-error' on an error." (regexp-exec %repl-undefined-result-regexp line)) (reverse matches) (loop (read-line repl-channel) - (cons (regexp-exec %repl-result-2-regexp line) matches))))) + (cons (regexp-exec %repl-result-2-regexp line) + matches))))) (len (length matches))) (if (= len 1) (let ((m (car matches))) |