From 1048d204ca6cc87395fc6ead393e7ffe5808799f Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 22 Mar 2009 01:30:13 +0000 Subject: [PATCH] more time, for slower machines svn: r14207 --- collects/tests/scribble/main.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/scribble/main.ss b/collects/tests/scribble/main.ss index 15ba5bbd7e..4fd6febb3e 100644 --- a/collects/tests/scribble/main.ss +++ b/collects/tests/scribble/main.ss @@ -134,7 +134,7 @@ (call-with-output-file (car m) #:exists 'truncate (lambda (o) (display (cdr m) o)))) (set! thd (thread run)) - (t (with-limits 1 #f + (t (with-limits 2 #f (if len-to-read (read-string len-to-read i) (port->string i))) => expected) (t (begin (kill-thread thd) (cond [exn => raise] [else #t])))))