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

Get more info to diagnose intermittent failure on DrDr.

Browse Source
This commit is contained in:
Vincent St-Amour 2013-11-05 14:20:57 -05:00
parent 3d15fb3c1d
commit 29d2da833a
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
pkgs/contract-profile/main.rkt
View File

@ -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