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

unbreak unzip

Browse Source 
Commit 71b7f21fdb changed the scope of a shadowing binding.
This commit is contained in:
Matthew Flatt 2021-03-03 09:29:10 -07:00
parent a5b61f7ac8
commit 076426e796
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
racket/collects/file/unzip.rkt
View File

@ -203,21 +203,22 @@
[in0 (if (bitwise-bit-set? bits 3)
in
(make-limited-input-port in compressed #f))])
(define-values (in t)
(if (zero? compression)
(values in0 #f)
(make-filter-input-port inflate in0)))
(if preserve-timestamps?
(read-entry filename dir? in (and (not dir?)
(msdos-date+time->seconds date time utc?)))
(read-entry filename dir? in))
(let ()
(define-values (in t)
(if (zero? compression)
(values in0 #f)
(make-filter-input-port inflate in0)))
(if preserve-timestamps?
(read-entry filename dir? in (and (not dir?)
(msdos-date+time->seconds date time utc?)))
(read-entry filename dir? in))
;; Read until the end of the deflated stream when compressed size unknown
(when (bitwise-bit-set? bits 3)
(let loop () (unless (eof-object? (read-bytes 1024 in)) (loop))))
;; Read until the end of the deflated stream when compressed size unknown
(when (bitwise-bit-set? bits 3)
(let loop () (unless (eof-object? (read-bytes 1024 in)) (loop))))
(when t (kill-thread t))
(when t (kill-thread t)))
;; appnote VI-C : if bit 3 is set, then the file data
;; is immediately followed by a data descriptor