From aa493114c31640a1b326d80110b179a8fd9a4031 Mon Sep 17 00:00:00 2001 From: mathieu2em Date: Fri, 5 Jul 2019 10:54:18 -0400 Subject: prompt regexp --- elisp/geiser-gambit.el | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'elisp') 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) -- cgit v1.2.3