summaryrefslogtreecommitdiff
path: root/elisp/geiser-impl.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-impl.el
parent76441ec53587fbbfb7176eb280461f4bc2e1519b (diff)
downloadgeiser-guile-783ab50f4cba76b45fe1cacac66a153331aafb13.tar.gz
geiser-guile-783ab50f4cba76b45fe1cacac66a153331aafb13.tar.bz2
Fixing the mess during initialization.
Diffstat (limited to 'elisp/geiser-impl.el')
-rw-r--r--elisp/geiser-impl.el7
1 files changed, 1 insertions, 6 deletions
diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el
index fe8ccd7..6bc4e79 100644
--- a/elisp/geiser-impl.el
+++ b/elisp/geiser-impl.el
@@ -71,9 +71,6 @@
(let ((impl (or impl geiser-impl--implementation)))
(and impl (capitalize (format "%s" impl)))))
-(defsubst geiser-impl--impl-feature (impl)
- (intern (format "geiser-%s" impl)))
-
;;; Installing Scheme implementations:
@@ -226,9 +223,7 @@ implementation to be used by Geiser."))
;;; Initialization:
-(mapc (lambda (impl)
- (require (geiser-impl--impl-feature impl) nil t))
- geiser-impl-installed-implementations)
+(mapc 'geiser-impl--register geiser-impl-installed-implementations)
(provide 'geiser-impl)