summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-13 23:15:27 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-13 23:15:27 +0200
commit091d1cdd2c4d532f651dc6e2ba1a09e023f3e7d6 (patch)
tree033b5953517e0f681a39b95ea9e99cd07008ba15
parent369b3e464bded04224ad63416584ba61e798b293 (diff)
downloadgeiser-chez-091d1cdd2c4d532f651dc6e2ba1a09e023f3e7d6.tar.gz
geiser-chez-091d1cdd2c4d532f651dc6e2ba1a09e023f3e7d6.tar.bz2
Bug fix: correct guessing for installed implementations.
-rw-r--r--elisp/geiser-impl.el8
1 files changed, 5 insertions, 3 deletions
diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el
index 13e5ead..fe8ccd7 100644
--- a/elisp/geiser-impl.el
+++ b/elisp/geiser-impl.el
@@ -97,7 +97,7 @@
(geiser-impl--read-impl nil nil t))))
(require (geiser-impl--impl-feature impl))
(setq geiser-impl--implementation impl)
- (geiser-impl--install-eval impl)
+ (geiser-impl--install-vars impl)
(geiser-impl--register impl)))
(defsubst geiser-impl--sym (imp name)
@@ -134,7 +134,7 @@
(defsubst geiser-impl--symbol-begin (impl)
(geiser-impl--sym impl "symbol-begin"))
-(defun geiser-impl--install-eval (impl)
+(defun geiser-impl--install-vars (impl)
(setq geiser-eval--get-module-function
(geiser-impl--module-function impl))
(setq geiser-eval--geiser-procedure-function
@@ -226,7 +226,9 @@ implementation to be used by Geiser."))
;;; Initialization:
-(mapc 'geiser-impl--register geiser-impl-installed-implementations)
+(mapc (lambda (impl)
+ (require (geiser-impl--impl-feature impl) nil t))
+ geiser-impl-installed-implementations)
(provide 'geiser-impl)