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

.

Browse Source 
original commit: b2f7bc29592b7df28c0a7eda5c96990e9e64d107
This commit is contained in:
Matthew Flatt 2005-03-04 22:10:18 +00:00
parent db9c95a507
commit 80a95125ff
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 32 bytes:
(if (peeked . < . 32)
;; assume that lookahead never needs more than 1 byte:
(if (zero? peeked)
(set! peeked (add1 peeked))
(read-byte input-port))))
(set! bk (+ bk 8))