node.scm (rrepl-get-result): Add a sub-procedure

* modules/ssh/dist/node.scm (rrepl-get-result) <parse-result>: New
  sub-procedure.
  <read-result>: Use it.

1 files changed, 11 insertions, 10 deletions

diff --git a/modules/ssh/dist/node.scm b/modules/ssh/dist/node.scm
index ead5ebf..b579b1c 100644
--- a/modules/ssh/dist/node.scm
+++ b/modules/ssh/dist/node.scm
@@ -188,17 +188,18 @@ name.  Throw 'node-repl-error' on an error."
           (loop (read-line repl-channel)
                 (string-append result "\n" line)))))
 
+  (define (parse-result 1st-match)
+    (let loop ((line    (read-line repl-channel))
+               (matches (list 1st-match)))
+      (if (or (eof-or-null? line)
+              (regexp-exec %repl-undefined-result-regexp line))
+          (reverse matches)
+          (loop (read-line repl-channel)
+                (cons (regexp-exec %repl-result-2-regexp line) matches)))))
+
   (define (read-result match)
-    (let* ((matches
-            (let loop ((line    (read-line repl-channel))
-                       (matches (list match)))
-              (if (or (eof-or-null? line)
-                      (regexp-exec %repl-undefined-result-regexp line))
-                  (reverse matches)
-                  (loop (read-line repl-channel)
-                        (cons (regexp-exec %repl-result-2-regexp line)
-                              matches)))))
-           (len (length matches)))
+    (let* ((matches (parse-result match))
+           (len     (length matches)))
       (if (= len 1)
           (let ((m (car matches)))
             (values (read-string (match:substring m 4))