From 241f16327f43218635c38eb21412cf0ba30975c2 Mon Sep 17 00:00:00 2001 From: Eliza Velasquez <4576666+elizagamedev@users.noreply.github.com> Date: Wed, 22 May 2024 10:01:28 -0700 Subject: Combine let bindings --- elisp/geiser-connection.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'elisp') 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) -- cgit v1.2.3