Catching abnormal exits of the inferior scheme process.

1 files changed, 9 insertions, 10 deletions

diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index e27d80f..a836f18 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -278,16 +278,15 @@ module command as a string")
           (geiser-repl--get-repl geiser-impl--implementation))))))
 
 (defun geiser-repl--sentinel (proc event)
-  (when (string= event "finished\n")
-    (with-current-buffer (process-buffer proc)
-      (let ((comint-prompt-read-only nil)
-            (comint-input-ring-file-name (geiser-repl--history-file)))
-        (geiser-repl--on-quit)
-        (push (current-buffer) geiser-repl--closed-repls)
-        (when (buffer-name (current-buffer))
-          (comint-kill-region comint-last-input-start (point))
-          (insert "\nIt's been nice interacting with you!\n")
-          (insert "Press C-cz to bring me back.\n" ))))))
+  (with-current-buffer (process-buffer proc)
+    (let ((comint-prompt-read-only nil)
+          (comint-input-ring-file-name (geiser-repl--history-file)))
+      (geiser-repl--on-quit)
+      (push (current-buffer) geiser-repl--closed-repls)
+      (when (buffer-name (current-buffer))
+        (comint-kill-region comint-last-input-start (point))
+        (insert "\nIt's been nice interacting with you!\n")
+        (insert "Press C-cz to bring me back.\n" )))))
 
 (defun geiser-repl--on-kill ()
   (geiser-repl--on-quit)