summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--elisp/geiser-repl.el1
1 files changed, 1 insertions, 0 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index b17faed..b8f0c98 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -170,6 +170,7 @@ implementation name gets appended to it."
"Start a new Geiser REPL."
(interactive
(list (or (geiser-repl--only-impl-p)
+ (and (eq major-mode 'geiser-repl-mode) geiser-impl--implementation)
(geiser-repl--read-impl "Start Geiser for scheme implementation: "))))
(geiser-repl--start-repl impl))