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

.

Browse Source 
original commit: 681be32df23c269af75bc91049e5f83af6e986af
This commit is contained in:
Matthew Flatt 2005-03-04 22:13:10 +00:00
parent 80a95125ff
commit 7a876fbfdd
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

@ -248,8 +248,8 @@
(let ([v (peek-byte input-port peeked)])
(unless (eof-object? v)
(set! bb (+ bb (arithmetic-shift v bk)))
;; assume that lookahead never needs more than 1 byte:
(if (zero? peeked)
;; assume that lookahead never needs more than 32 bytes:
(if (peeked . < . 32)
(set! peeked (add1 peeked))
(read-byte input-port))))
(set! bk (+ bk 8))