[nongnu] elpa/geiser-guile 91f4bef 5/6: Debugger: cleaning the "Entering a new prompt" salutation

[ELPA Syncer]

branch: elpa/geiser-guile
commit 91f4bef1f7d0137496deea4015f7918552c25ff6
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>

    Debugger: cleaning the "Entering a new prompt" salutation
---
 geiser-guile.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/geiser-guile.el b/geiser-guile.el
index f5a6991..64ab8ab 100644
--- a/geiser-guile.el
+++ b/geiser-guile.el
@@ -165,9 +165,10 @@ This function uses `geiser-guile-init-file' if it exists."
   "^[^@(\n]+@([^)]*?) \\[\\([0-9]+\\)\\]> ")
 
 (defconst geiser-guile--clean-rx
-  (format "\\(%s\\)\\|\\(^\\$[0-9]+ = [^\n]+$\\)"
+  (format "\\(%s\\)\\|\\(^\\$[0-9]+ = [^\n]+$\\)\\|%s"
           (geiser-con--combined-prompt geiser-guile--prompt-regexp
-                                       geiser-guile--debugger-prompt-regexp)))
+                                       geiser-guile--debugger-prompt-regexp)
+          "\\(\nEntering a new prompt.  Type `,bt' for [^\n]+\\.$\\)"))
 
 
 ;;; Evaluation support:
@@ -247,9 +248,9 @@ This function uses `geiser-guile-init-file' if it exists."
 
 ;;; Compilation shell regexps
 
-(defconst geiser-guile--path-rx "^In \\([^:\n]+\\):\n")
+(defconst geiser-guile--path-rx "^In \\([^:\n ]+\\):\n")
 
-(defconst geiser-guile--rel-path-rx "^In +\\([^/\n:]+\\):\n")
+(defconst geiser-guile--rel-path-rx "^In +\\([^/\n: ]+\\):\n")
 
 (defvar geiser-guile--file-cache (make-hash-table :test 'equal)
   "Internal cache.")
@@ -264,7 +265,8 @@ This function uses `geiser-guile-init-file' if it exists."
 (defun geiser-guile--resolve-file (file)
   "Find the given FILE, if it's indeed a file."
   (when (and (stringp file)
-             (not (member file '("socket" "stdin" "unknown file"))))
+             (not (member file
+                          '("socket" "stdin" "unknown file" "current input"))))
     (message "Resolving %s" file)
     (cond ((file-name-absolute-p file) file)
           (t (when-let (f (geiser-guile--find-file file))