From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 3 Dec 2001 18:15:22 +0000 (+0000)
Subject: Add (sleep-for 0.1) after signalling an interrupt, in order to work
X-Git-Tag: 20090517-FFI~2409
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c3ba563495a0133b325009d3aaf6cde9b48b79b4;p=mit-scheme.git

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 7f274a2ce..ef3d2ba5f 100644
--- 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)))