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

Use random for changes

Browse Source
This commit is contained in:
Jay McCarthy 2013-05-22 07:19:56 -06:00
parent 7cc4488c56
commit a3d791495c
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/meta/drdr/analyze.rkt
View File

@ -161,7 +161,8 @@
(for/or ([p (in-list ps)]) (for/or ([p (in-list ps)])
; XXX This squelch should be disabled if the committer changed this file ; XXX This squelch should be disabled if the committer changed this file
; XXX But even then it can lead to problems ; 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)))))) (not (symbol=? id 'changes))))))
(define mail-recipients (define mail-recipients
(remove-duplicates (remove-duplicates
@ -283,12 +284,17 @@
(define dur (status-duration log)) (define dur (status-duration log))
(define any-stderr? (ormap stderr? output-log)) (define any-stderr? (ormap stderr? output-log))
(define changed? (define changed?
(if (previous-rev) (if (and (previous-rev)
(not (path-random? (trunk-path log-pth))))
(with-handlers ([exn:fail? (with-handlers ([exn:fail?
; This #f means that new files are NOT considered changed ; This #f means that new files are NOT considered changed
(lambda (x) #f)]) (lambda (x) #f)])
(define prev-log-pth ((rebase-path (revision-log-dir (current-rev)) (revision-log-dir (previous-rev))) log-pth)) (define prev-log-pth
(log-different? output-log (status-output-log (read-cache 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)) #f))
(define responsible (define responsible
(or (path-responsible (trunk-path log-pth)) (or (path-responsible (trunk-path log-pth))