summaryrefslogtreecommitdiff
path: root/elisp/geiser-reload.el
diff options
context:
space:
mode:
Diffstat (limited to 'elisp/geiser-reload.el')
-rw-r--r--elisp/geiser-reload.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/elisp/geiser-reload.el b/elisp/geiser-reload.el
index 80d6a17..d3b62eb 100644
--- a/elisp/geiser-reload.el
+++ b/elisp/geiser-reload.el
@@ -14,6 +14,7 @@
(require 'geiser-impl)
(require 'geiser-repl)
(require 'geiser-mode)
+(require 'geiser-custom)
(require 'geiser-base)
(require 'geiser)
@@ -66,14 +67,14 @@ loaded again."
(file-exists-p (expand-file-name "geiser-reload.elc" dir)))
(error "%s does not contain Geiser!" dir))
(let ((installed (featurep 'geiser-install))
- (installed-impls geiser-impl-installed-implementations)
+ (memo (geiser-custom--memoized-state))
(impls geiser-impl--impls)
(repls (geiser-repl--repl-list))
(buffers (geiser-mode--buffers)))
(geiser-unload)
(setq load-path (remove old-dir load-path))
(add-to-list 'load-path dir)
- (setq geiser-impl-installed-implementations installed-impls)
+ (mapc (lambda (x) (set (car x) (cdr x))) memo)
(require 'geiser-reload)
(when installed (require 'geiser-install nil t))
(geiser-impl--reload-implementations impls)