From 5bba93dd09f91051afe17bd624a31bf1e6c65638 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 15 Nov 2009 14:29:28 +0000 Subject: [PATCH] have setup-plt remove old .dep files in addition to old .zo files svn: r16786 --- collects/setup/setup-unit.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/setup/setup-unit.ss b/collects/setup/setup-unit.ss index 4d3afa5dd2..40be5fab54 100644 --- a/collects/setup/setup-unit.ss +++ b/collects/setup/setup-unit.ss @@ -649,8 +649,8 @@ (append (directory-list dir) (info 'virtual-sources (lambda () null)))))]) (for ([p (directory-list c)]) - (when (and (regexp-match #rx#".zo$" (path-element->bytes p)) - (not (hash-ref ok-zo-files p #f))) + (when (and (regexp-match #rx#".(zo|dep)$" (path-element->bytes p)) + (not (hash-ref ok-zo-files (path-replace-suffix p #".zo") #f))) (setup-fprintf (current-error-port) #f " deleting ~a" (build-path c p)) (delete-file (build-path c p)))))))) ;; Make .zos