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

have setup-plt remove old .dep files in addition to old .zo files

Browse Source 
svn: r16786
This commit is contained in:
Matthew Flatt 2009-11-15 14:29:28 +00:00
parent cad5d85354
commit 5bba93dd09
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/setup/setup-unit.ss
View File

@ -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