diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-10-29 21:42:12 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-10-29 21:42:12 +0300 |
| commit | 02a5a17b5f6dd994e27ebe0f73956b21d86a7852 (patch) | |
| tree | f63187e871af97aa2cf36103088f2c19ada4e317 /modules/ssh/dist | |
| parent | node.scm (rrepl-get-result): Add a sub-procedure (diff) | |
| download | guile-ssh-02a5a17b5f6dd994e27ebe0f73956b21d86a7852.tar.gz | |
node.scm (rrepl-get-result): Remove extra 'begin'
* modules/ssh/dist/node.scm (rrepl-get-result): Remove extra 'begin'.
Diffstat (limited to 'modules/ssh/dist')
| -rw-r--r-- | modules/ssh/dist/node.scm | 41 |
1 files changed, 20 insertions, 21 deletions
diff --git a/modules/ssh/dist/node.scm b/modules/ssh/dist/node.scm index b579b1c..7167fd0 100644 --- a/modules/ssh/dist/node.scm +++ b/modules/ssh/dist/node.scm @@ -223,28 +223,27 @@ name. Throw 'node-repl-error' on an error." (let ((result (read-line repl-channel))) (if (string-null? result) (rrepl-get-result repl-channel) - (begin - (cond - ((regexp-exec %repl-result-regexp result) => - (lambda (match) - (receive (result eval-num) - (read-result match) - (values - result ; Result - eval-num ; # of evaluation - (match:substring match 2) ; Module - (match:substring match 1))))) ; Language - ((regexp-exec %repl-error-regexp result) => - (lambda (match) (raise-repl-error result))) - ((regexp-exec %repl-undefined-result-regexp result) => - (lambda (match) + (cond + ((regexp-exec %repl-result-regexp result) => + (lambda (match) + (receive (result eval-num) + (read-result match) (values - *unspecified* ; Result - *unspecified* ; # of evaluation - (match:substring match 2) ; Module - (match:substring match 1)))) ; Language - (else - (raise-repl-error result))))))) + result ; Result + eval-num ; # of evaluation + (match:substring match 2) ; Module + (match:substring match 1))))) ; Language + ((regexp-exec %repl-error-regexp result) => + (lambda (match) (raise-repl-error result))) + ((regexp-exec %repl-undefined-result-regexp result) => + (lambda (match) + (values + *unspecified* ; Result + *unspecified* ; # of evaluation + (match:substring match 2) ; Module + (match:substring match 1)))) ; Language + (else + (raise-repl-error result)))))) (define (rrepl-eval rrepl-channel quoted-exp) "Evaluate QUOTED-EXP using RREPL-CHANNEL, return four values: an evaluation |