diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-11 04:06:57 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-11 04:06:57 +0100 |
| commit | c52771f91d3e61a2e94743e79368ed711177ae80 (patch) | |
| tree | 00634501510f6bbfd6f55ca0235b0d3432161c72 | |
| parent | 404401056c9526e2e96e08617b92f735a7e160fd (diff) | |
| download | geiser-guile-c52771f91d3e61a2e94743e79368ed711177ae80.tar.gz geiser-guile-c52771f91d3e61a2e94743e79368ed711177ae80.tar.bz2 | |
Support for multiple Scheme implementations, Chapter 2.
* The REPL is aware of multiple implementations...
* and it knows how to create more than one connection for guile;
* but it's not been tested with more than one implementation.
* geiser-mode seems to be able to keep track of active REPLs.
| -rw-r--r-- | elisp/geiser-guile.el | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el index fde2954..a34e4d6 100644 --- a/elisp/geiser-guile.el +++ b/elisp/geiser-guile.el @@ -57,11 +57,20 @@ 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)))) - `("-p" "-L" ,(expand-file-name "guile/" geiser-scheme-dir) + `("-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]+@([^)]*?)> ") +(defun switch-to-guile (&optional ask) + (interactive "P") + (switch-to-geiser ask 'guile)) + +(defun run-guile () + "Run Geiser using Guile." + (interactive) + (run-geiser 'guile)) + ;;; Evaluation support: |