summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-06-14 22:19:36 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-06-14 22:19:36 +0200
commit3c8e22e4aaa3cbac830d4a37af6db3395082fb66 (patch)
treebbb5dad7bae7504f338ae30f66ece1eb0ffd9bcc /elisp
parentc042571626977f12916d59966ea94ded44d8cf32 (diff)
downloadgeiser-chez-3c8e22e4aaa3cbac830d4a37af6db3395082fb66.tar.gz
geiser-chez-3c8e22e4aaa3cbac830d4a37af6db3395082fb66.tar.bz2
Fixes in geiser-reload (unload forcibly and pick repl implementations).
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-impl.el2
-rw-r--r--elisp/geiser-repl.el2
2 files changed, 2 insertions, 2 deletions
diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el
index 6bc4e79..d45fadc 100644
--- a/elisp/geiser-impl.el
+++ b/elisp/geiser-impl.el
@@ -213,7 +213,7 @@ implementation to be used by Geiser."))
(defun geiser-impl-unload-function ()
(dolist (imp (mapcar 'geiser-impl--impl-feature geiser-impl--impls))
- (when (featurep imp) (unload-feature imp)))
+ (when (featurep imp) (unload-feature imp t)))
t)
(defun geiser-impl--reload-implementations (impls)
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index f4d85dc..da7dde7 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -326,7 +326,7 @@ If no REPL is running, execute `run-geiser' to start a fresh one."
(defun geiser-repl--restore (impls)
(dolist (impl impls)
- (when impl (geiser impl))))
+ (when impl (geiser nil impl))))
(defun geiser-repl-unload-function ()
(dolist (repl geiser-repl--repls)