From 9e4657b7da7fe069609c62b8669d9f005478d322 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 15 Oct 2009 02:57:01 +0000 Subject: [PATCH] fix file modes for scheme/base svn: r16323 --- collects/mzlib/inflate.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mzlib/inflate.ss b/collects/mzlib/inflate.ss index 5a8ae877b2..f51337c454 100644 --- a/collects/mzlib/inflate.ss +++ b/collects/mzlib/inflate.ss @@ -908,7 +908,7 @@ (if original-filename (values (bytes->path original-filename) #t) (values "unzipped" #f))]) - (values (open-output-file (name-filter fn orig?) 'truncate) + (values (open-output-file (name-filter fn orig?) #:exists 'truncate) #t)))]) (dynamic-wind void @@ -923,7 +923,7 @@ (case-lambda [(src) (gunzip src (lambda (name from-file?) name))] [(src name-filter) - (let ([in (open-input-file src 'binary)]) + (let ([in (open-input-file src #:mode 'binary)]) (dynamic-wind void (lambda () (do-gunzip in #f name-filter))