fix cm problem related to new race-condition avoidance

svn: r18127
This commit is contained in:
Matthew Flatt 2010-02-17 21:10:05 +00:00
parent 008e7b3121
commit 746b85fa6b

View File

@ -2,8 +2,8 @@
(require syntax/modcode
syntax/modresolve
setup/main-collects
unstable/file
scheme/file
unstable/file
scheme/list
scheme/path)
@ -140,7 +140,7 @@
(set! ok? #t)))
(lambda ()
(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))))))
(define (write-deps code mode path external-deps reader-deps)