diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-14 13:07:54 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-14 13:07:54 +0200 |
| commit | 783ab50f4cba76b45fe1cacac66a153331aafb13 (patch) | |
| tree | cd81e0614a616114c76c1179dc73fc597010748d /elisp/geiser-impl.el | |
| parent | 76441ec53587fbbfb7176eb280461f4bc2e1519b (diff) | |
| download | geiser-guile-783ab50f4cba76b45fe1cacac66a153331aafb13.tar.gz geiser-guile-783ab50f4cba76b45fe1cacac66a153331aafb13.tar.bz2 | |
Fixing the mess during initialization.
Diffstat (limited to 'elisp/geiser-impl.el')
| -rw-r--r-- | elisp/geiser-impl.el | 7 |
1 files changed, 1 insertions, 6 deletions
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) |