From 458ee5bf2d315ea78d915c0491ab89c7de28a1f7 Mon Sep 17 00:00:00 2001
From: Peter <craven@gmx.net>
Date: Tue, 26 Apr 2016 07:19:36 +0200
Subject: Add preliminary support for MIT/GNU Scheme.

---
 Makefile.am       | 3 +++
 README            | 1 +
 elisp/Makefile.am | 1 +
 elisp/geiser.el   | 7 +++++++
 4 files changed, 12 insertions(+)

diff --git a/Makefile.am b/Makefile.am
index ef3d7bc..4a5c2e2 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -25,12 +25,15 @@ elpa: README.elpa info
 	$(mkdir_p) $(scheme_dir)/guile/geiser
 	$(mkdir_p) $(scheme_dir)/racket/geiser
 	$(mkdir_p) $(scheme_dir)/chicken/geiser
+	$(mkdir_p) $(scheme_dir)/mit/geiser
 	$(INSTALL_DATA) $(abs_top_srcdir)/scheme/guile/geiser/* \
                         $(scheme_dir)/guile/geiser
 	$(INSTALL_DATA) $(abs_top_srcdir)/scheme/racket/geiser/* \
                         $(scheme_dir)/racket/geiser
 	$(INSTALL_DATA) $(abs_top_srcdir)/scheme/chicken/geiser/* \
                         $(scheme_dir)/chicken/geiser
+	$(INSTALL_DATA) $(abs_top_srcdir)/scheme/mit/geiser/* \
+                        $(scheme_dir)/mit/geiser
 
 	$(INSTALL_DATA) $(srcdir)/doc/geiser.info $(elpa_dir)
 	(cd $(elpa_dir) && install-info --dir=dir geiser.info 2>/dev/null)
diff --git a/README b/README
index 69b34be..e81ca46 100644
--- a/README
+++ b/README
@@ -33,6 +33,7 @@
       - Guile 2.0 or better.
       - PLT Racket 6.0 or better.
       - Chicken 4.8.0 or better.
+      - MIT/GNU Scheme 9.2 or better
 
 * Installation
 
diff --git a/elisp/Makefile.am b/elisp/Makefile.am
index 085d716..011098e 100644
--- a/elisp/Makefile.am
+++ b/elisp/Makefile.am
@@ -18,6 +18,7 @@ dist_lisp_LISP = \
    geiser-impl.el \
    geiser-log.el \
    geiser-menu.el \
+   geiser-mit.el \
    geiser-mode.el \
    geiser-racket.el \
    geiser-chicken.el \
diff --git a/elisp/geiser.el b/elisp/geiser.el
index 476b4ec..0ae9a43 100644
--- a/elisp/geiser.el
+++ b/elisp/geiser.el
@@ -96,6 +96,13 @@
 (autoload 'connect-to-chicken "geiser-chicken"
   "Connect to a remote Geiser Chicken REPL." t)
 
+;;;###autoload
+(autoload 'run-mit "geiser-mit" "Start a Geiser MIT/GNU Scheme REPL." t)
+
+;;;###autoload
+(autoload 'switch-to-mit "geiser-mit"
+  "Start a Geiser MIT/GNU Scheme REPL, or switch to a running one." t)
+
 ;;;###autoload
 (autoload 'geiser-mode "geiser-mode"
   "Minor mode adding Geiser REPL interaction to Scheme buffers." t)
-- 
cgit v1.2.3