From fcf24ab5868b0d36df89ee3e0f827fe715927f3e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 26 Aug 2011 19:29:30 -0600 Subject: [PATCH] fix bug in `raco unpack' due to recent conversion from `mzscheme' to `racket/base' --- collects/setup/unpack.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/setup/unpack.rkt b/collects/setup/unpack.rkt index 769132bd9f..5120182228 100644 --- a/collects/setup/unpack.rkt +++ b/collects/setup/unpack.rkt @@ -218,7 +218,7 @@ (if (file-exists? path) (if (eq? kind 'file) #f - (open-output-file path 'truncate)) + (open-output-file path #:exists 'truncate)) (open-output-file path)))]) (when (and write? (not out)) (print-status (format " skipping ~a; already exists" (pretty-name path))))