From f9a39531e9aa5f775ef0990881d23ede0ff3226d Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 26 Jun 2017 17:56:23 -0400 Subject: [PATCH] Fix a very old race condition in this test. Probably exposed by the rktio changes. --- .../tests/racket/benchmarks/shootout/echo.rkt | 3 ++- .../tests/racket/benchmarks/shootout/typed/echo.rktl | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/pkgs/racket-benchmarks/tests/racket/benchmarks/shootout/echo.rkt b/pkgs/racket-benchmarks/tests/racket/benchmarks/shootout/echo.rkt index 751f023870..acb5ca715b 100644 --- a/pkgs/racket-benchmarks/tests/racket/benchmarks/shootout/echo.rkt +++ b/pkgs/racket-benchmarks/tests/racket/benchmarks/shootout/echo.rkt @@ -6,8 +6,9 @@ (define n 10) (define (server) + (define l (tcp-listen PORT 5 #t)) (thread client) - (let-values ([(in out) (tcp-accept (tcp-listen PORT 5 #t))] + (let-values ([(in out) (tcp-accept l)] [(buffer) (make-string (string-length DATA))]) (file-stream-buffer-mode out 'none) (let loop ([i (read-string! buffer in)] diff --git a/pkgs/racket-benchmarks/tests/racket/benchmarks/shootout/typed/echo.rktl b/pkgs/racket-benchmarks/tests/racket/benchmarks/shootout/typed/echo.rktl index 7430f6dab2..1de0015312 100644 --- a/pkgs/racket-benchmarks/tests/racket/benchmarks/shootout/typed/echo.rktl +++ b/pkgs/racket-benchmarks/tests/racket/benchmarks/shootout/typed/echo.rktl @@ -7,8 +7,9 @@ (: server ( -> Void)) (define (server) + (define l (tcp-listen PORT 5 #t)) (thread client) - (let-values ([(in out) (tcp-accept (tcp-listen PORT 5 #t))] + (let-values ([(in out) (tcp-accept l)] [(buffer) (make-string (string-length DATA))]) (file-stream-buffer-mode out 'none) (let: loop : Void ([i : (U Integer EOF) (read-string! buffer in)]