Get more info to diagnose intermittent failure on DrDr.
This commit is contained in:
parent
3d15fb3c1d
commit
29d2da833a
|
@ -15,7 +15,14 @@
|
||||||
(define samples (get-times (map cdr (reverse (cdr samples*)))))
|
(define samples (get-times (map cdr (reverse (cdr samples*)))))
|
||||||
(define n-samples (length contract-samples))
|
(define n-samples (length contract-samples))
|
||||||
;; combine blame info and stack trace info. samples should line up
|
;; combine blame info and stack trace info. samples should line up
|
||||||
(define aug-contract-samples (map cons contract-samples samples))
|
(define aug-contract-samples
|
||||||
|
(if (= (length contract-samples) (length samples))
|
||||||
|
(map cons contract-samples samples)
|
||||||
|
;; This case happens on DrDr. Not sure how that's possible.
|
||||||
|
(begin (displayln contract-samples)
|
||||||
|
(displayln samples)
|
||||||
|
(error "contract-samples and samples are not of same length"
|
||||||
|
(length contract-samples) " vs " (length samples)))))
|
||||||
(define live-contract-samples (filter car aug-contract-samples))
|
(define live-contract-samples (filter car aug-contract-samples))
|
||||||
(define n-contract-samples (length live-contract-samples))
|
(define n-contract-samples (length live-contract-samples))
|
||||||
(define all-blames
|
(define all-blames
|
||||||
|
|
Loading…
Reference in New Issue
Block a user