fix timeout in portlib test suite

svn: r8395

collects/tests/mzscheme/parallel.ss

@@ -33,7 +33,9 @@
             (cons
              (let ([ns (make-base-namespace)]
                    [eh (exit-handler)]
-                   [cust (list-ref custodians (sub1 n))])
+                   [cust (list-ref custodians (sub1 n))]
+                   [ql (namespace-variable-value 'quiet-load #f
+                                                 (lambda () #f))])
                (parameterize ([current-custodian cust])
                  (thread
                   (lambda ()
@@ -41,8 +43,10 @@
                      n
                      (lambda ()
                        (parameterize ([current-namespace ns])
-                         (namespace-transformer-require 'mzscheme)
+                         (namespace-require '(for-syntax scheme/base))
                          (eval `(define Section-prefix ,(format "~a:" n)))
+                         (when ql
+                           (eval `(define quiet-load (quote ,ql))))
                          (let ([dirname (path->complete-path (format "sub~s" n))])
                            (when (directory-exists? dirname)
                              (delete-directory* dirname))

collects/tests/mzscheme/portlib.ss

@@ -476,6 +476,7 @@
 			  (set! v (read-bytes 6 p))))])
 	(test (void) sync (system-idle-evt) t)
 	(display "56" out)
+	(test (void) sync (system-idle-evt))
 	(test t sync/timeout SLEEP-TIME t)
 	(test #"123456" values v)))))