diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-17 14:01:06 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-17 14:01:06 +0100 |
| commit | f48e83fe58246c9726aea0031e5a2027c5998759 (patch) | |
| tree | 8e98e5575d952d8c825d7747d3965371ad6e44e3 /elisp | |
| parent | 38da2b330dce33eb03e38f7376a90a1efb4d54db (diff) | |
| download | geiser-guile-f48e83fe58246c9726aea0031e5a2027c5998759.tar.gz geiser-guile-f48e83fe58246c9726aea0031e5a2027c5998759.tar.bz2 | |
Accept a list as Guile binary.
Diffstat (limited to 'elisp')
| -rw-r--r-- | elisp/geiser-guile.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el index d3928b4..f7e5540 100644 --- a/elisp/geiser-guile.el +++ b/elisp/geiser-guile.el @@ -41,7 +41,7 @@ ((eq system-type 'darwin) "guile") (t "guile")) "Name to use to call the Guile executable when starting a REPL." - :type 'string + :type '(choice string (repeat string)) :group 'geiser-guile) (defcustom geiser-guile-init-file "~/.guile-geiser" @@ -52,12 +52,16 @@ ;;; REPL support: +(defun geiser-guile-binary () + (if (listp geiser-guile-binary) (car geiser-guile-binary) geiser-guile-binary)) + (defun geiser-guile-parameters () "Return a list with all parameters needed to start Guile. This function uses `geiser-guile-init-file' if it exists." (let ((init-file (and (stringp geiser-guile-init-file) (expand-file-name geiser-guile-init-file)))) - `("-q" "-L" ,(expand-file-name "guile/" geiser-scheme-dir) + `(,@(and (listp geiser-guile-binary) (cdr geiser-guile-binary)) + "-q" "-L" ,(expand-file-name "guile/" geiser-scheme-dir) ,@(and init-file (file-readable-p init-file) (list "-l" init-file))))) (defconst geiser-guile-prompt-regexp "^[^() \n]+@([^)]*?)> ") |