From 0897f31a3e3c06a04e613f1bac888d045eea0c48 Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 20 Dec 2021 20:51:34 +0000 Subject: Better handling of (:debug) evaluations --- elisp/geiser-debug.el | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) (limited to 'elisp/geiser-debug.el') diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el index 394f7da..af4c8db 100644 --- a/elisp/geiser-debug.el +++ b/elisp/geiser-debug.el @@ -112,14 +112,21 @@ all ANSI sequences." (defvar-local geiser-debug--debugger-active-p nil) (defvar-local geiser-debug--sender-buffer nil) +(defun geiser-debug--send-dbg (thing) + (geiser-eval--send/wait (cons :debug (if (listp thing) thing (list thing))))) + +(defun geiser-debug--debugger-display (thing ret) + (geiser-debug--display-retort (format ",%s" thing) + ret + (geiser-eval--retort-result-str ret nil))) + (defun geiser-debug--send-to-repl (thing) (unless (and geiser-debug--debugger-active-p geiser-debug--sender-buffer) (error "Debugger not active")) (save-window-excursion (with-current-buffer geiser-debug--sender-buffer - (let* ((ret (geiser-eval--send/wait (cons :debug thing))) - (res (geiser-eval--retort-result-str ret nil))) - (geiser-debug--display-retort (format ",%s" thing) ret res))))) + (when-let (ret (geiser-debug--send-dbg thing)) + (geiser-debug--debugger-display thing ret))))) (defun geiser-debug-switch-to-buffer () "Return to the scheme buffer that pooped this debug window." -- cgit v1.2.3