summaryrefslogtreecommitdiff
path: root/elisp/geiser.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-14 13:07:54 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-14 13:07:54 +0200
commit783ab50f4cba76b45fe1cacac66a153331aafb13 (patch)
treecd81e0614a616114c76c1179dc73fc597010748d /elisp/geiser.el
parent76441ec53587fbbfb7176eb280461f4bc2e1519b (diff)
downloadgeiser-chez-783ab50f4cba76b45fe1cacac66a153331aafb13.tar.gz
geiser-chez-783ab50f4cba76b45fe1cacac66a153331aafb13.tar.bz2
Fixing the mess during initialization.
Diffstat (limited to 'elisp/geiser.el')
-rw-r--r--elisp/geiser.el8
1 files changed, 7 insertions, 1 deletions
diff --git a/elisp/geiser.el b/elisp/geiser.el
index d72eee7..952cfe5 100644
--- a/elisp/geiser.el
+++ b/elisp/geiser.el
@@ -97,9 +97,15 @@
(defun geiser-setup-implementations (impls)
(setq geiser-impl-installed-implementations (or impls '(guile plt))))
+(defsubst geiser-impl--impl-feature (impl)
+ (intern (format "geiser-%s" impl)))
+
(defun geiser-setup (&rest impls)
(geiser-setup-implementations impls)
- (geiser-setup-scheme-mode))
+ (geiser-setup-scheme-mode)
+ (mapc (lambda (impl)
+ (require (geiser-impl--impl-feature impl) nil t))
+ geiser-impl-installed-implementations))
;;; Reload: