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 | 3c8e22e4aaa3cbac830d4a37af6db3395082fb66 (patch) | |
| tree | bbb5dad7bae7504f338ae30f66ece1eb0ffd9bcc /elisp | |
| parent | c042571626977f12916d59966ea94ded44d8cf32 (diff) | |
| download | geiser-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.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) |