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

fix cm problem related to new race-condition avoidance

Browse Source 
svn: r18127
This commit is contained in:
Matthew Flatt 2010-02-17 21:10:05 +00:00
parent 008e7b3121
commit 746b85fa6b
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/compiler/cm.ss
View File

@ -2,8 +2,8 @@
(require syntax/modcode (require syntax/modcode
syntax/modresolve syntax/modresolve
setup/main-collects setup/main-collects
unstable/file
scheme/file scheme/file
unstable/file
scheme/list scheme/list
scheme/path) scheme/path)
@ -140,7 +140,7 @@
(set! ok? #t))) (set! ok? #t)))
(lambda () (lambda ()
(if ok? (if ok?
(rename-file-or-directory/ignore-exists-exn tmp-path path) (rename-file-or-directory tmp-path path #t)
(try-delete-file tmp-path)))))) (try-delete-file tmp-path))))))
(define (write-deps code mode path external-deps reader-deps) (define (write-deps code mode path external-deps reader-deps)