diff options
| -rw-r--r-- | elisp/geiser-connection.el | 3 | ||||
| -rw-r--r-- | elisp/geiser-repl.el | 5 |
2 files changed, 4 insertions, 4 deletions
diff --git a/elisp/geiser-connection.el b/elisp/geiser-connection.el index 1068330..d9ffc15 100644 --- a/elisp/geiser-connection.el +++ b/elisp/geiser-connection.el @@ -200,7 +200,8 @@ (defun geiser-con--req-form (req answer) (let ((con (geiser-con--request-connection req))) - (if (geiser-con--has-entered-debugger con answer) + (if (or (geiser-con--connection-is-debugging con) + (geiser-con--has-entered-debugger con answer)) `((error (key . geiser-debugger)) (output . ,answer)) (condition-case err diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index 814c501..bb827a5 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -762,9 +762,8 @@ If SAVE-HISTORY is non-nil, save CMD in the REPL history." (intxt (and pmark (buffer-substring pmark (point)))) (eob (point-max))) (when intxt - (and geiser-repl-forget-old-errors-p - (not (geiser-repl--is-debugging)) - (compilation-forget-errors)) + (when geiser-repl-forget-old-errors-p + (compilation-forget-errors)) (geiser-repl--prepare-send) (comint-send-input) (when (string-match "^\\s-*$" intxt) |