From 1638fd5214fa2c6601a80a7b5113db92e209bae5 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 24 Jan 2017 17:26:31 -0700 Subject: [PATCH] benchmark tabulate: fix handling for "rx" benchmark output --- .../tests/racket/benchmarks/common/tabulate.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/pkgs/racket-benchmarks/tests/racket/benchmarks/common/tabulate.rkt b/pkgs/racket-benchmarks/tests/racket/benchmarks/common/tabulate.rkt index 925c509051..05e7a4397a 100755 --- a/pkgs/racket-benchmarks/tests/racket/benchmarks/common/tabulate.rkt +++ b/pkgs/racket-benchmarks/tests/racket/benchmarks/common/tabulate.rkt @@ -204,7 +204,7 @@ exec racket -qu "$0" ${1+"$@"} (define forever 1000000000) (define (ntime v) - (and (caadr v) (- (caaadr v) (or (caaddr (cadr v)) 0)))) + (and (caadr v) (- (caaadr v) (or (and (caddr (cadr v)) (caaddr (cadr v))) 0)))) (define (grouping->suffix grouping) (if (eq? grouping 'impl) @@ -426,7 +426,8 @@ exec racket -qu "$0" ${1+"$@"} (let* ([a (assq impl (cdr bm-run))] [n (and a (caadr a) (caaadr a))] [coeff-var (and a (caadr a) (cadr (caadr a)))] - [n2 (and a (ntime a))]) + [n2 (and a (ntime a))] + [base (if (pair? base) (car base) base)]) `(,@(if (no-compile-time) null (list