diff options
| author | mathieu2em <math.per@hotmail.com> | 2019-07-05 10:54:18 -0400 |
|---|---|---|
| committer | mathieu2em <math.per@hotmail.com> | 2019-08-20 15:31:38 -0400 |
| commit | aa493114c31640a1b326d80110b179a8fd9a4031 (patch) | |
| tree | 0b87eaad59c9a47848daaff52cdc3750b824e2e9 /elisp | |
| parent | 64897f79c1283a8e3cb7ecddc468a656de09d9b8 (diff) | |
| download | geiser-guile-aa493114c31640a1b326d80110b179a8fd9a4031.tar.gz geiser-guile-aa493114c31640a1b326d80110b179a8fd9a4031.tar.bz2 | |
prompt regexp
Diffstat (limited to 'elisp')
| -rw-r--r-- | elisp/geiser-gambit.el | 7 |
1 files 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) |