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

compiler/cm: repair related to compiled-file-roots

Browse Source
This commit is contained in:
Matthew Flatt 2012-09-12 12:03:08 -06:00
parent 7ce7da8f53
commit e7b1af845b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/compiler/cm.rkt
View File

@ -732,7 +732,7 @@
(trace-printf "skipping: ~a file does not exist" path)
(when delete-zos-when-rkt-file-does-not-exist?
(unless (or (null? modes) (null? roots))
(define to-delete (path-add-suffix (get-compilation-path (car modes) (car roots) path) #".zo"))
(define to-delete (path-add-suffix (get-compilation-path (car modes) roots path) #".zo"))
(when (file-exists? to-delete)
(trace-printf "deleting: ~s" to-delete)
(with-compiler-security-guard (delete-file to-delete)))))]