From 6d56ddcc10acc38298ddaa222ccaece6ac50d31d Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Wed, 27 Apr 2011 11:02:08 -0400 Subject: [PATCH] Chicken changed its timing output format. --- collects/tests/racket/benchmarks/common/auto.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/racket/benchmarks/common/auto.rkt b/collects/tests/racket/benchmarks/common/auto.rkt index a5c015c45f..caa6935286 100755 --- a/collects/tests/racket/benchmarks/common/auto.rkt +++ b/collects/tests/racket/benchmarks/common/auto.rkt @@ -297,7 +297,7 @@ exec racket -qu "$0" ${1+"$@"} (bytes->number (caddr m))))) (define (extract-chicken-times bm str) - (let ([m (regexp-match #rx#"([0-9.]+) seconds.*[^0-9.]([0-9.]+) seconds" str)]) + (let ([m (regexp-match #rx#"([0-9.]+)s CPU time, ([0-9.]+)s GC time" str)]) (list (* 1000 (string->number (format "#e~a" (cadr m)))) #f (* 1000 (string->number (format "#e~a" (caddr m)))))))