Add (sleep-for 0.1) after signalling an interrupt, in order to work

around race condition.

diff --git a/etc/xscheme.el b/etc/xscheme.el
index 7f274a2ce725ee8017da0e57a55da2e0b2d923db..ef3d2ba5fef9f27b26bbced5d05726bf5859f759 100644 (file)
--- a/etc/xscheme.el
+++ b/etc/xscheme.el
@@ -696,6 +696,7 @@ Control returns to the top level rep loop."
             (setq xscheme-control-g-disabled-p t))
           (message xscheme-control-g-message-string)
           (interrupt-process xscheme-process-name)
+          (sleep-for 0.1)
           (xscheme-send-char 0)))))
 
 (defconst xscheme-control-g-message-string
@@ -720,6 +721,7 @@ Control returns to the top level rep loop."
   "Send a ^A type interrupt to the Scheme process."
   (interactive "cInterrupt character to send: ")
   (quit-process xscheme-process-name)
+  (sleep-for 0.1)
   (xscheme-send-char char)
   (if (and mark-p xscheme-control-g-synchronization-p)
       (xscheme-send-char 0)))