From 643be2437b520af1cb0ebc03114d8c6d8ca2a5ae Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Thu, 14 May 2009 13:07:54 +0200 Subject: Fixing the mess during initialization. --- elisp/geiser-impl.el | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to 'elisp/geiser-impl.el') diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el index fe8ccd7..6bc4e79 100644 --- a/elisp/geiser-impl.el +++ b/elisp/geiser-impl.el @@ -71,9 +71,6 @@ (let ((impl (or impl geiser-impl--implementation))) (and impl (capitalize (format "%s" impl))))) -(defsubst geiser-impl--impl-feature (impl) - (intern (format "geiser-%s" impl))) - ;;; Installing Scheme implementations: @@ -226,9 +223,7 @@ implementation to be used by Geiser.")) ;;; Initialization: -(mapc (lambda (impl) - (require (geiser-impl--impl-feature impl) nil t)) - geiser-impl-installed-implementations) +(mapc 'geiser-impl--register geiser-impl-installed-implementations) (provide 'geiser-impl) -- cgit v1.2.3