Fix a very old race condition in this test.

Probably exposed by the rktio changes.
willghatch · Jun 26, 2017 · f9a3953 · f9a3953
1 parent 76711df
commit f9a3953
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git 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
@@ -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)]