diff options
| -rw-r--r-- | elisp/geiser-connection.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/elisp/geiser-connection.el b/elisp/geiser-connection.el index 5aa05a9..2b3c4b9 100644 --- a/elisp/geiser-connection.el +++ b/elisp/geiser-connection.el @@ -208,13 +208,13 @@ (unless (string-blank-p extra-output) (geiser-log--warn "Extra output (before): %s" (string-trim extra-output)))) - (let* ((ret (read-from-string answer start))) - (let ((extra-output (substring answer (cdr ret)))) - (unless (string-blank-p extra-output) - ;; Usually, the extra output is just the return value - ;; being echoed by the REPL, and not worth noting. - (geiser-log--debug "Extra output (after): %s" - (string-trim extra-output)))) + (let* ((ret (read-from-string answer start)) + (extra-output (substring answer (cdr ret)))) + (unless (string-blank-p extra-output) + ;; Usually, the extra output is just the return value + ;; being echoed by the REPL, and not worth noting. + (geiser-log--debug "Extra output (after): %s" + (string-trim extra-output))) (car ret)))) `((error (key . retort-syntax)) (output . ,answer) |