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

benchmark tabulate: fix handling for "rx" benchmark output

Browse Source
This commit is contained in:
Matthew Flatt 2017-01-24 17:26:31 -07:00
parent 06f31954d5
commit 1638fd5214
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/racket-benchmarks/tests/racket/benchmarks/common/tabulate.rkt
View File

@ -204,7 +204,7 @@ exec racket -qu "$0" ${1+"$@"}
(define forever 1000000000) (define forever 1000000000)
(define (ntime v) (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) (define (grouping->suffix grouping)
(if (eq? grouping 'impl) (if (eq? grouping 'impl)
@ -426,7 +426,8 @@ exec racket -qu "$0" ${1+"$@"}
(let* ([a (assq impl (cdr bm-run))] (let* ([a (assq impl (cdr bm-run))]
[n (and a (caadr a) (caaadr a))] [n (and a (caadr a) (caaadr a))]
[coeff-var (and a (caadr a) (cadr (caadr 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) `(,@(if (no-compile-time)
null null
(list (list