From a3d791495c3875ae142cef8de512b8516caa7745 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Wed, 22 May 2013 07:19:56 -0600 Subject: [PATCH] Use random for changes --- collects/meta/drdr/analyze.rkt | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/collects/meta/drdr/analyze.rkt b/collects/meta/drdr/analyze.rkt index d9b60ecfb0..f2b2a5a17c 100644 --- a/collects/meta/drdr/analyze.rkt +++ b/collects/meta/drdr/analyze.rkt @@ -161,7 +161,8 @@ (for/or ([p (in-list ps)]) ; XXX This squelch should be disabled if the committer changed this file ; XXX But even then it can lead to problems - (not (path-random? (build-path (revision-trunk-dir cur-rev) (substring (path->string* p) 1))))) + (not (path-random? (build-path (revision-trunk-dir cur-rev) + (substring (path->string* p) 1))))) (not (symbol=? id 'changes)))))) (define mail-recipients (remove-duplicates @@ -283,12 +284,17 @@ (define dur (status-duration log)) (define any-stderr? (ormap stderr? output-log)) (define changed? - (if (previous-rev) + (if (and (previous-rev) + (not (path-random? (trunk-path log-pth)))) (with-handlers ([exn:fail? ; This #f means that new files are NOT considered changed (lambda (x) #f)]) - (define prev-log-pth ((rebase-path (revision-log-dir (current-rev)) (revision-log-dir (previous-rev))) log-pth)) - (log-different? output-log (status-output-log (read-cache prev-log-pth)))) + (define prev-log-pth + ((rebase-path (revision-log-dir (current-rev)) + (revision-log-dir (previous-rev))) + log-pth)) + (log-different? output-log + (status-output-log (read-cache prev-log-pth)))) #f)) (define responsible (or (path-responsible (trunk-path log-pth))