From 3c97be1f726a34df5b5b6f4ee6ef957a2a6d0e22 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Wed, 13 May 2009 23:15:27 +0200 Subject: Bug fix: correct guessing for installed implementations. --- elisp/geiser-impl.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'elisp/geiser-impl.el') 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) -- cgit v1.2.3