[nongnu] elpa/geiser-guile c52771f 062/284: Support for multiple Scheme implementations, Chapter 2.

[Philip Kaludercic]

branch: elpa/geiser-guile
commit c52771f91d3e61a2e94743e79368ed711177ae80
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    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(-)

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: