suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix a very old race condition in this test.

Browse Source 
Probably exposed by the rktio changes.
This commit is contained in:
Sam Tobin-Hochstadt 2017-06-26 17:56:23 -04:00
parent 76711dfb50
commit f9a39531e9
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/racket-benchmarks/tests/racket/benchmarks/shootout/echo.rkt
View File

@ -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)]

3
pkgs/racket-benchmarks/tests/racket/benchmarks/shootout/typed/echo.rktl
View File

@ -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)]