Make tabulation script more resilient to incorrect input.

2011-04-27 17:03:59 -04:00 · 2011-04-27 17:03:59 -04:00 · 7cf64050f8
commit 7cf64050f8
parent e11582a522
1 changed files with 2 additions and 1 deletions
--- a/collects/tests/racket/benchmarks/common/tabulate.rkt
+++ b/collects/tests/racket/benchmarks/common/tabulate.rkt
@ -99,7 +99,8 @@ exec racket -qu "$0" ${1+"$@"}
                                          #f)])
                                  (if a
                                      ;; compute cpu, real and gc average time for the nothing benchmark
-                                      (let ([nothing-runs (map car a)])
+                                      (let ([nothing-runs (map (lambda (x) (map (lambda (y) (or y 0)) x))
+                                                               (map car a))])
                                        (map (lambda (x) (exact->inexact (/ x (length nothing-runs))))
                                             (foldl (lambda (x y) (map + x y))
                                                    '(0 0 0)