From 7c1326a120babb489e3390c3164947bf425d459b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 15 Nov 2018 14:56:55 -0700
Subject: [PATCH] io: fix subprocess waiting for Windows

---
 racket/src/io/subprocess/main.rkt | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/racket/src/io/subprocess/main.rkt b/racket/src/io/subprocess/main.rkt
index 4069d57e96..c1e265af84 100644
--- a/racket/src/io/subprocess/main.rkt
+++ b/racket/src/io/subprocess/main.rkt
@@ -13,7 +13,8 @@
          "../file/host.rkt"
          "../string/convert.rkt"
          "../locale/string.rkt"
-         "../envvar/main.rkt")
+         "../envvar/main.rkt"
+         "../sandman/main.rkt")
 
 (provide (rename-out [do-subprocess subprocess])
          subprocess?
@@ -34,7 +35,12 @@
   (poller (lambda (sp ctx)
             (define v (rktio_poll_process_done rktio (subprocess-process sp)))
             (if (eqv? v 0)
-                (values #f sp)
+                (begin
+                  (sandman-poll-ctx-add-poll-set-adder!
+                   ctx
+                   (lambda (ps)
+                     (rktio_poll_add_process rktio (subprocess-process sp) ps)))
+                  (values #f sp))
                 (values (list sp) #f)))))
 
 (define do-subprocess