summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-17 14:01:06 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-17 14:01:06 +0100
commit89e9c57a0766bf9a1610c6239bb4c55db14d54e6 (patch)
treead20c652643c92921a8ad537685cb96384f2c301
parent5148f813564d051347bf611afcbd7582f009aaa9 (diff)
downloadgeiser-chez-89e9c57a0766bf9a1610c6239bb4c55db14d54e6.tar.gz
geiser-chez-89e9c57a0766bf9a1610c6239bb4c55db14d54e6.tar.bz2
Accept a list as Guile binary.
-rw-r--r--elisp/geiser-guile.el8
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]+@([^)]*?)> ")