diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2015-09-08 23:51:21 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2015-09-08 23:51:21 +0200 |
| commit | 0bbb486df3d8b79a0f8356063b8dc9ea4c33e38c (patch) | |
| tree | 0f492c9fdf5e939ab59f74b4911b4919b07238c7 /elisp/geiser-repl.el | |
| parent | bb3667a580d5c8dca7d88c0aaca6390c55978974 (diff) | |
| download | geiser-0bbb486df3d8b79a0f8356063b8dc9ea4c33e38c.tar.gz geiser-0bbb486df3d8b79a0f8356063b8dc9ea4c33e38c.tar.bz2 | |
Ensuring switch-to-geiser asks for an implementation
Should fix issue #85
Diffstat (limited to 'elisp/geiser-repl.el')
| -rw-r--r-- | elisp/geiser-repl.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index 57398fa..7518e0b 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -348,7 +348,7 @@ module command as a string") (when (not geiser-repl-skip-version-check-p) (let ((v (geiser-repl--version impl (geiser-repl--binary impl))) (r (geiser-repl--min-version impl))) - (when (geiser--version< v r) + (when (and v r (geiser--version< v r)) (error "Geiser requires %s version %s but detected %s" impl r v))))) (defun geiser-repl--start-repl (impl address) @@ -784,7 +784,8 @@ If no REPL is running, execute `run-geiser' to start a fresh one." (geiser-repl--switch-to-buffer geiser-repl--last-scm-buffer))) (repl (geiser-repl--switch-to-buffer repl)) ((geiser-repl--remote-p) (geiser-connect impl)) - (t (run-geiser impl))) + (impl (run-geiser impl)) + (t (call-interactively 'run-geiser))) (geiser-repl--maybe-remember-scm-buffer buffer))) (defun switch-to-geiser-module (&optional module buffer) |