From 6ee0b0585a081310adab160b92ec2a875fd228d9 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Thu, 13 May 2010 13:03:14 -0600 Subject: [PATCH] Fixing bug in path-random access --- collects/meta/drdr/analyze.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/meta/drdr/analyze.ss b/collects/meta/drdr/analyze.ss index 766cd993b0..f149a2bc4e 100644 --- a/collects/meta/drdr/analyze.ss +++ b/collects/meta/drdr/analyze.ss @@ -148,7 +148,7 @@ (and (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) p)))) + (not (path-random? (build-path (revision-trunk-dir cur-rev) (substring (path->string* p) 1))))) (not (symbol=? id 'changes)))))) (unless (andmap zero? nums) (send-mail-message "drdr@plt-scheme.org"