From 83a203c46112ba117d4358cc5fe9db91abb9ae4d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 16 Jul 2014 11:37:34 +0100 Subject: [PATCH] fix a test that relied on the current input port as not-ready --- pkgs/racket-pkgs/racket-test/tests/racket/sync.rktl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/pkgs/racket-pkgs/racket-test/tests/racket/sync.rktl b/pkgs/racket-pkgs/racket-test/tests/racket/sync.rktl index 76f0c7667d..8c9fa9cd54 100644 --- a/pkgs/racket-pkgs/racket-test/tests/racket/sync.rktl +++ b/pkgs/racket-pkgs/racket-test/tests/racket/sync.rktl @@ -607,11 +607,12 @@ ;; never get an answe back from this depth: (define overflow-depth 40000) + (read-byte i) (set! nacks null) (define t (thread (lambda () (with-handlers ([exn:break? void]) - (sync (deep #t (current-input-port) overflow-depth)))))) + (sync (deep #t i overflow-depth)))))) (sync (system-idle-evt)) (test #f sync/timeout 0 t)