From 643be2437b520af1cb0ebc03114d8c6d8ca2a5ae Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Thu, 14 May 2009 13:07:54 +0200
Subject: Fixing the mess during initialization.

---
 elisp/geiser-impl.el   | 7 +------
 elisp/geiser-plt.el    | 6 ------
 elisp/geiser-syntax.el | 1 +
 elisp/geiser.el        | 8 +++++++-
 4 files changed, 9 insertions(+), 13 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)
diff --git a/elisp/geiser-plt.el b/elisp/geiser-plt.el
index cfc0909..e0400ec 100644
--- a/elisp/geiser-plt.el
+++ b/elisp/geiser-plt.el
@@ -24,7 +24,6 @@
 
 ;;; Code:
 
-(require 'geiser-impl)
 (require 'geiser-eval)
 (require 'geiser-syntax)
 (require 'geiser-custom)
@@ -167,11 +166,6 @@ This function uses `geiser-plt-init-file' if it exists."
  (with-method 1)
  (with-syntax 1))
 
-
-;;; Register this implementation:
-
-(geiser-impl--register 'plt)
-
 
 (provide 'geiser-plt)
 ;;; geiser-plt.el ends here
diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el
index a09c17e..ea57a95 100644
--- a/elisp/geiser-syntax.el
+++ b/elisp/geiser-syntax.el
@@ -24,6 +24,7 @@
 
 ;;; Code:
 
+(require 'geiser-popup)
 (require 'geiser-base)
 
 (require 'scheme)
diff --git a/elisp/geiser.el b/elisp/geiser.el
index d72eee7..952cfe5 100644
--- a/elisp/geiser.el
+++ b/elisp/geiser.el
@@ -97,9 +97,15 @@
 (defun geiser-setup-implementations (impls)
   (setq geiser-impl-installed-implementations (or impls '(guile plt))))
 
+(defsubst geiser-impl--impl-feature (impl)
+  (intern (format "geiser-%s" impl)))
+
 (defun geiser-setup (&rest impls)
   (geiser-setup-implementations impls)
-  (geiser-setup-scheme-mode))
+  (geiser-setup-scheme-mode)
+  (mapc (lambda (impl)
+          (require (geiser-impl--impl-feature impl) nil t))
+        geiser-impl-installed-implementations))
 
 
 ;;; Reload:
-- 
cgit v1.2.3