diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-13 23:15:27 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-13 23:15:27 +0200 |
| commit | 091d1cdd2c4d532f651dc6e2ba1a09e023f3e7d6 (patch) | |
| tree | 033b5953517e0f681a39b95ea9e99cd07008ba15 | |
| parent | 369b3e464bded04224ad63416584ba61e798b293 (diff) | |
| download | geiser-chez-091d1cdd2c4d532f651dc6e2ba1a09e023f3e7d6.tar.gz geiser-chez-091d1cdd2c4d532f651dc6e2ba1a09e023f3e7d6.tar.bz2 | |
Bug fix: correct guessing for installed implementations.
| -rw-r--r-- | elisp/geiser-impl.el | 8 |
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) |