suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix file modes for scheme/base

Browse Source 
svn: r16323

original commit: 9e4657b7da7fe069609c62b8669d9f005478d322
This commit is contained in:
Matthew Flatt 2009-10-15 02:57:01 +00:00
parent 27b02aa263
commit b04eb5c240
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mzlib/inflate.ss
View File

@ -908,7 +908,7 @@
(if original-filename (if original-filename
(values (bytes->path original-filename) #t) (values (bytes->path original-filename) #t)
(values "unzipped" #f))]) (values "unzipped" #f))])
(values (open-output-file (name-filter fn orig?) 'truncate) (values (open-output-file (name-filter fn orig?) #:exists 'truncate)
#t)))]) #t)))])
(dynamic-wind (dynamic-wind
void void
@ -923,7 +923,7 @@
(case-lambda (case-lambda
[(src) (gunzip src (lambda (name from-file?) name))] [(src) (gunzip src (lambda (name from-file?) name))]
[(src name-filter) [(src name-filter)
(let ([in (open-input-file src 'binary)]) (let ([in (open-input-file src #:mode 'binary)])
(dynamic-wind (dynamic-wind
void void
(lambda () (do-gunzip in #f name-filter)) (lambda () (do-gunzip in #f name-filter))