From abd5de64b8a180d5fa7fc6e838c89067c454cc38 Mon Sep 17 00:00:00 2001
From: "Artyom V. Poptsov" <poptsov.artyom@gmail.com>
Date: Tue, 2 May 2017 01:34:47 +0300
Subject: node.scm (rrepl-get-result): Fix code formatting

* modules/ssh/dist/node.scm (rrepl-get-result): Fix code formatting.
---
 modules/ssh/dist/node.scm | 10 +++++++---
 1 file 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))
-- 
cgit v1.2.3