From 746b85fa6bd56c1ba101b78e7e07912cdd4325e5 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 17 Feb 2010 21:10:05 +0000 Subject: [PATCH] fix cm problem related to new race-condition avoidance svn: r18127 --- collects/compiler/cm.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/compiler/cm.ss b/collects/compiler/cm.ss index 409c323eaf..253af84f41 100644 --- a/collects/compiler/cm.ss +++ b/collects/compiler/cm.ss @@ -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)