[nongnu] elpa/geiser-gambit 9be02bc 02/34: prompt regexp

[Philip Kaludercic]

branch: elpa/geiser-gambit
commit 9be02bcf577d22f48d0700b996392984bacf127c
Author: mathieu2em <math.per@hotmail.com>
Commit: mathieu2em <math.per@hotmail.com>

    prompt regexp
---
 elisp/geiser-gambit.el | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/elisp/geiser-gambit.el b/elisp/geiser-gambit.el
index cee1e03..d5a1040 100644
--- a/elisp/geiser-gambit.el
+++ b/elisp/geiser-gambit.el
@@ -43,7 +43,7 @@
 ;; structure of the methode and then define the method
 ;; with a defcustom: define a variable that represents an option users might 
want to set
 (geiser-custom--defcustom geiser-gambit-binary
-  (cond ((eq system-type 'windows-nt) '("gsi.exe")) ;; not sure if the -:c is 
ok here
+  (cond ((eq system-type 'windows-nt) '("gsi.exe"))
         ((eq system-type 'darwin) "gsi")
         (t "gsi"))
   "Name to use to call the gambit executable when starting a REPL."
@@ -86,11 +86,8 @@ this variable to t."
   :type 'boolean
   :group 'geiser-gambit)
 
-
-
 ;; TODO path for debugger and debugging functions
 
-
 ;;; REPL support:
 
 (defun geiser-gambit--binary ()
@@ -113,7 +110,7 @@ this variable to t."
 
 (defun geiser-gambit--parameters () '("-:d-")) ;; uses -:d to pipe to stdin 
and stdout
 
-(defconst geiser-gambit--prompt-regexp "[0-9]*> ")
+(defconst geiser-gambit--prompt-regexp "(?:[0-9])?*> ")
 
 ;;; Evaluation support:
 (defun geiser-gambit--geiser-procedure (proc &rest args)