diff options
| -rw-r--r-- | elisp/geiser-impl.el | 10 | ||||
| -rw-r--r-- | elisp/geiser.el | 2 |
2 files changed, 11 insertions, 1 deletions
diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el index ac6c2b9..75a4ca7 100644 --- a/elisp/geiser-impl.el +++ b/elisp/geiser-impl.el @@ -41,6 +41,11 @@ :type 'symbol :group 'geiser-impl) +(defcustom geiser-impl-installed-implementations nil + "Initial list of installed Scheme implementations." + :type '(repeat symbol) + :group 'geiser-impl) + ;;; Registering implementations: @@ -209,5 +214,10 @@ implementation to be used by Geiser.")) (load-library (format "geiser-%s" impl)))) +;;; Initialization: + +(mapc 'geiser-impl--register geiser-impl-installed-implementations) + + (provide 'geiser-impl) ;;; geiser-impl.el ends here diff --git a/elisp/geiser.el b/elisp/geiser.el index c57e971..d72eee7 100644 --- a/elisp/geiser.el +++ b/elisp/geiser.el @@ -95,7 +95,7 @@ '(add-hook 'scheme-mode-hook 'turn-on-geiser-mode))) (defun geiser-setup-implementations (impls) - (setq geiser-impl--impls (or impls '(guile plt)))) + (setq geiser-impl-installed-implementations (or impls '(guile plt)))) (defun geiser-setup (&rest impls) (geiser-setup-implementations impls) |