From c52771f91d3e61a2e94743e79368ed711177ae80 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Wed, 11 Mar 2009 04:06:57 +0100 Subject: 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. --- elisp/geiser-guile.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'elisp') 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: -- cgit v1.2.3