summaryrefslogtreecommitdiff
path: root/elisp
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
commit3c97be1f726a34df5b5b6f4ee6ef957a2a6d0e22 (patch)
treea675f0ba358e2e2d01d4eb03c1356761ab4d8329 /elisp
parent757c9525eb3e75d62279f04418c1b3cc278ca1d2 (diff)
downloadgeiser-3c97be1f726a34df5b5b6f4ee6ef957a2a6d0e22.tar.gz
geiser-3c97be1f726a34df5b5b6f4ee6ef957a2a6d0e22.tar.bz2
Bug fix: correct guessing for installed implementations.
Diffstat (limited to 'elisp')
-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)