From 2434bb3a0c47e0b3855a4347e6a614296f749ccc Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 24 May 2020 07:19:46 -0600 Subject: [PATCH] avoid an unnecessary timeout in a test --- pkgs/racket-test-core/tests/racket/subprocess.rktl | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/pkgs/racket-test-core/tests/racket/subprocess.rktl b/pkgs/racket-test-core/tests/racket/subprocess.rktl index f6da7d4333..0fbd7ef60a 100644 --- 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 "")])