From 6fd5cb7fddf19fb8ba339499d3aa46bf2c404fd2 Mon Sep 17 00:00:00 2001
From: yjqww6 <yj_qww6@126.com>
Date: Tue, 14 Jun 2016 20:35:27 +0800
Subject: [PATCH] modification on previous commit for blocking in expeditor

original commit: 02844bee98871bf03cf435441ba23556ad4fc6aa
---
 LOG           |  2 ++
 c/expeditor.c | 23 +++++++++++++++--------
 2 files changed, 17 insertions(+), 8 deletions(-)

diff --git a/LOG b/LOG
index 51a95a0e07..0a06e5f824 100644
--- a/LOG
+++ b/LOG
@@ -200,3 +200,5 @@
     release_notes.stex
 - fixed spelling of non-existent
     s/syntax.ss
+- fixed unnessesary blocking in expeditor on Windows. 
+    c/expeditor.c
diff --git a/c/expeditor.c b/c/expeditor.c
index 556847d52b..c93d29acc8 100644
--- a/c/expeditor.c
+++ b/c/expeditor.c
@@ -73,6 +73,10 @@ static IBOOL s_ee_init_term(void) {
 static ptr s_ee_read_char(IBOOL blockp) {
   DWORD cNumRead;
   INPUT_RECORD irInBuf[1]; 
+#ifdef PTHREADS
+  ptr tc;
+#endif /* PTHREADS */
+  BOOL succ;
   static char buf[10];
   static int bufidx = 0;
   static int buflen = 0;
@@ -97,15 +101,18 @@ static ptr s_ee_read_char(IBOOL blockp) {
     }
 
 #ifdef PTHREADS
-    ptr tc = get_thread_context();
-    deactivate_thread(tc);
-#endif
+    tc = get_thread_context();
+    if (DISABLECOUNT(tc) == FIX(0)) {
+        deactivate_thread(tc);
+        succ = ReadConsoleInput(hStdin, irInBuf, 1, &cNumRead);
+        reactivate_thread(tc);
+    } else {
+        succ = ReadConsoleInput(hStdin, irInBuf, 1, &cNumRead);
+    }
+#else /* PTHREADS */
+    succ = ReadConsoleInput(hStdin, irInBuf, 1, &cNumRead);
+#endif /* PTHREADS */
 
-    BOOL succ = ReadConsoleInput(hStdin, irInBuf, 1, &cNumRead);
-
-#ifdef PTHREADS
-    reactivate_thread(tc);
-#endif
 
     if (!succ)
       S_error1("expeditor", "error getting console info: ~a",