diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-06-14 22:19:36 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-06-14 22:19:36 +0200 |
| commit | d8da8d0e8733bb5c2fc01347be17dfc7c1c4cfa7 (patch) | |
| tree | 84803d5aca558d400c825f2aaa6196ddc35111b0 | |
| parent | f9d746bd4600d34d3b3fe72d5159b58d6160bfb9 (diff) | |
| download | geiser-d8da8d0e8733bb5c2fc01347be17dfc7c1c4cfa7.tar.gz geiser-d8da8d0e8733bb5c2fc01347be17dfc7c1c4cfa7.tar.bz2 | |
Fixes in geiser-reload (unload forcibly and pick repl implementations).
| -rw-r--r-- | elisp/geiser-impl.el | 2 | ||||
| -rw-r--r-- | elisp/geiser-repl.el | 2 |
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) |