From 29d2da833a29cb62d545be1e5d5c77e4b2c96a92 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Tue, 5 Nov 2013 14:20:57 -0500 Subject: [PATCH] Get more info to diagnose intermittent failure on DrDr. --- pkgs/contract-profile/main.rkt | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/pkgs/contract-profile/main.rkt b/pkgs/contract-profile/main.rkt index daf7f861d7..50fdc221c7 100644 --- a/pkgs/contract-profile/main.rkt +++ b/pkgs/contract-profile/main.rkt @@ -15,7 +15,14 @@ (define samples (get-times (map cdr (reverse (cdr samples*))))) (define n-samples (length contract-samples)) ;; 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 n-contract-samples (length live-contract-samples)) (define all-blames