fix cm problem related to new race-condition avoidance
svn: r18127
This commit is contained in:
parent
008e7b3121
commit
746b85fa6b
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user