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

more time, for slower machines

Browse Source 
svn: r14207
This commit is contained in:
Eli Barzilay 2009-03-22 01:30:13 +00:00
parent 2af626972d
commit 1048d204ca
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/scribble/main.ss
View File

@ -134,7 +134,7 @@
(call-with-output-file (car m) #:exists 'truncate (call-with-output-file (car m) #:exists 'truncate
(lambda (o) (display (cdr m) o)))) (lambda (o) (display (cdr m) o))))
(set! thd (thread run)) (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))) (if len-to-read (read-string len-to-read i) (port->string i)))
=> expected) => expected)
(t (begin (kill-thread thd) (cond [exn => raise] [else #t]))))) (t (begin (kill-thread thd) (cond [exn => raise] [else #t])))))