From 3c8e22e4aaa3cbac830d4a37af6db3395082fb66 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 14 Jun 2009 22:19:36 +0200 Subject: Fixes in geiser-reload (unload forcibly and pick repl implementations). --- elisp/geiser-impl.el | 2 +- elisp/geiser-repl.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'elisp') 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) -- cgit v1.2.3