[nongnu] elpa/geiser 9c46022: Fix: better handling of recurring debugging entrances

[ELPA Syncer]

branch: elpa/geiser
commit 9c460224c5159a5dd9c3ada3ad5df265536292cd
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>

    Fix: better handling of recurring debugging entrances
---
 elisp/geiser-connection.el | 3 ++-
 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)