diff options
| author | Eliza Velasquez <4576666+elizagamedev@users.noreply.github.com> | 2024-05-22 10:01:28 -0700 |
|---|---|---|
| committer | Eliza Velasquez <4576666+elizagamedev@users.noreply.github.com> | 2024-05-22 10:01:28 -0700 |
| commit | 241f16327f43218635c38eb21412cf0ba30975c2 (patch) | |
| tree | 649746b8c89bedee51e1650133d6bfc0d522ffaa | |
| parent | 4f2b1eb3e28341c3eb9bba0488bc4b553d305071 (diff) | |
| download | geiser-241f16327f43218635c38eb21412cf0ba30975c2.tar.gz geiser-241f16327f43218635c38eb21412cf0ba30975c2.tar.bz2 | |
Combine let bindings
| -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) |