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

fix setup-plt -c .dep traversal

Browse Source 
svn: r8283
This commit is contained in:
Matthew Flatt 2008-01-10 20:24:49 +00:00
parent dd858c5bfa
commit 3b394bda4e
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -496,9 +496,8 @@
old-dependencies
(lambda (file _)
(let-values ([(dir name dir?) (split-path file)])
(let* ([base-name (path-replace-suffix name #"")]
[zo (build-path dir mode-dir (format "~a.zo" base-name))]
[dep (build-path dir mode-dir (format "~a.dep" base-name))])
(let* ([zo (build-path dir mode-dir (path-add-suffix name #".zo"))]
[dep (build-path dir mode-dir (path-add-suffix name #".dep"))])
(when (and (file-exists? dep) (file-exists? zo))
(set! did-something? #t)
(setup-printf " deleting ~a" zo)