Windows console I/O overhaul

[sbcl.git] / src / runtime / safepoint.c

diff --git a/src/runtime/safepoint.c b/src/runtime/safepoint.c
index 224643d..d94a61e 100644 (file)
--- a/src/runtime/safepoint.c
+++ b/src/runtime/safepoint.c
@@ -831,6 +831,7 @@ void
 wake_thread_io(struct thread * thread)
 {
     SetEvent(thread->private_events.events[1]);
+    win32_maybe_interrupt_io(thread);
 }
 
 void
@@ -847,6 +848,7 @@ wake_thread_win32(struct thread *thread)
         (SymbolTlValue(STOP_FOR_GC_PENDING,thread)==T))
         return;
 
+    wake_thread_io(thread);
     pthread_mutex_unlock(&all_threads_lock);
 
     if (maybe_become_stw_initiator(1) && !in_race_p()) {