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 | 3c97be1f726a34df5b5b6f4ee6ef957a2a6d0e22 (patch) | |
| tree | a675f0ba358e2e2d01d4eb03c1356761ab4d8329 /elisp | |
| parent | 757c9525eb3e75d62279f04418c1b3cc278ca1d2 (diff) | |
| download | geiser-3c97be1f726a34df5b5b6f4ee6ef957a2a6d0e22.tar.gz geiser-3c97be1f726a34df5b5b6f4ee6ef957a2a6d0e22.tar.bz2 | |
Bug fix: correct guessing for installed implementations.
Diffstat (limited to 'elisp')
| -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) |