avoid an unnecessary timeout in a test

2020-05-24 07:19:46 -06:00 · 2020-05-24 07:19:46 -06:00 · 2434bb3a0c
commit 2434bb3a0c
parent b297271a5c
1 changed files with 4 additions and 5 deletions
--- a/pkgs/racket-test-core/tests/racket/subprocess.rktl
+++ b/pkgs/racket-test-core/tests/racket/subprocess.rktl
@ -464,11 +464,10 @@
                 ;; May need to wait for the init process to reap the
                 ;; sub-pid process (since that's a sub-sub-process to
                 ;; us)
-                 (let loop ([n 5])
-                   (unless (zero? n)
-                     (when (running? sub-pid)
-                       (sleep 0.05)
-                       (loop (sub1 n))))))
+                 (let loop ()
+                   (when (running? sub-pid)
+                     (sleep 0.05)
+                     (loop (sub1 n)))))
               (test post-shutdown? running? sub-pid)
               (when post-shutdown?
                 (parameterize ([current-input-port (open-input-string "")])