Fix chicken output processing.

2011-04-28 08:48:57 -04:00 · 2011-04-28 08:48:57 -04:00 · fc531c4dbf
commit fc531c4dbf
parent 7cf64050f8
1 changed files with 1 additions and 1 deletions
--- a/collects/tests/racket/benchmarks/common/auto.rkt
+++ b/collects/tests/racket/benchmarks/common/auto.rkt
@ -300,7 +300,7 @@ exec racket -qu "$0" ${1+"$@"}
            #f
            (if (caddr m) ; if the GC doesn't kick in, chicken doesn't print anything for GC time
                (* 1000 (string->number (format "#e~a" (cadddr m))))
-                #f))))
+                0))))

  (define (extract-time-times bm str)
    (let ([m (regexp-match #rx#"real[ \t]+([0-9m.]+)s.*user[ \t]+([0-9m.]+)s.sys[ \t]+([0-9m.]+)s." str)]