diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2017-05-02 01:34:47 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2017-05-02 01:34:47 +0300 |
| commit | abd5de64b8a180d5fa7fc6e838c89067c454cc38 (patch) | |
| tree | 2b7a733cd7fff64f283ba0e08b46ab1efc81fd3e | |
| parent | node.scm (rrepl-get-result): Handle unknown # objects properly (diff) | |
| download | guile-ssh-abd5de64b8a180d5fa7fc6e838c89067c454cc38.tar.gz | |
node.scm (rrepl-get-result): Fix code formatting
* modules/ssh/dist/node.scm (rrepl-get-result): Fix code formatting.
| -rw-r--r-- | modules/ssh/dist/node.scm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/modules/ssh/dist/node.scm b/modules/ssh/dist/node.scm index d657c29..9c065c7 100644 --- a/modules/ssh/dist/node.scm +++ b/modules/ssh/dist/node.scm @@ -235,9 +235,13 @@ name. Throw 'node-repl-error' on an error." ((read-error) (raise-repl-error (format #f "Reader error: ~a: ~a: ~a" (car message) - (apply format #f (cadr message) (cddr message)) - (string-join (map (lambda (match) (match:substring match 0)) - matches))))) + (apply format #f + (cadr message) + (cddr message)) + (string-join + (map (lambda (match) + (match:substring match 0)) + matches))))) (else (raise-repl-error message (map (lambda (match) (match:substring match 0)) |