diff options
| -rw-r--r-- | elisp/geiser-mode.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el index e0e22c6..615bbdd 100644 --- a/elisp/geiser-mode.el +++ b/elisp/geiser-mode.el @@ -279,12 +279,14 @@ With prefix, try to enter the current buffer's module." (defun geiser-restart-repl () "Restarts the REPL associated with the current buffer." (interactive) - (let ((b (current-buffer))) - (geiser-mode-switch-to-repl nil) - (comint-kill-subjob) - (sit-for 0.1) ;; ugly hack; but i don't care enough to fix it - (call-interactively 'run-geiser) - (sit-for 0.2) ;; ditto + (let ((b (current-buffer)) + (impl geiser-impl--implementation)) + (when (buffer-live-p geiser-repl--repl) + (geiser-mode-switch-to-repl nil) + (comint-kill-subjob) + (sit-for 0.1)) ;; ugly hack; but i don't care enough to fix it + (run-geiser impl) + (sit-for 0.2) (goto-char (point-max)) (pop-to-buffer b))) |