From ec2ed125b0dc3b08ed32c882a67688f69c08fd0e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 7 Dec 2007 20:18:42 +0000 Subject: [PATCH] fix some call-with-output-file calls svn: r7923 --- collects/launcher/launcher-unit.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/launcher/launcher-unit.ss b/collects/launcher/launcher-unit.ss index 6f09821f8e..095dcdec15 100644 --- a/collects/launcher/launcher-unit.ss +++ b/collects/launcher/launcher-unit.ss @@ -466,7 +466,7 @@ (close-input-port p) (check-len len-exedir exedir "executable home directory") (check-len len-command bstr "collection/file name") - (let ([p (open-output-file dest 'update)]) + (let ([p (open-output-file dest #:exists 'update)]) (write-magic p exedir pos-exedir len-exedir) (write-magic p (bytes-append bstr #"\0\0") pos-command len-command) (let* ([suffix (variant-suffix (current-launcher-variant) #t)] @@ -507,7 +507,7 @@ (loop)))) (let ([data-fork-size (file-position p)]) (close-input-port p) - (let ([p (open-output-file dest 'update)] + (let ([p (open-output-file dest #:exists 'update)] [str (str-list->sh-str (append (if (eq? kind 'mred) null