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

tweak for 301.11 inlining

Browse Source 
svn: r2468
This commit is contained in:
Matthew Flatt 2006-03-20 20:33:43 +00:00
parent 6b7e973056
commit 6a4dccff65
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
collects/mzlib/inflate.ss
View File

@ -260,17 +260,19 @@
(define (NEEDBITS n)
(when (< bk n)
(let ([v (peek-byte input-port peeked)])
(if (eof-object? v)
(error 'inflate "unexpected end of file")
(begin
(set! bb (+ bb (arithmetic-shift v bk)))
;; assume that lookahead never needs more than 32 bytes:
(if (peeked . < . 32)
(set! peeked (add1 peeked))
(read-byte input-port)))))
(set! bk (+ bk 8))
(NEEDBITS n)))
(READBITS n)))
(define (READBITS n)
(let ([v (peek-byte input-port peeked)])
(if (eof-object? v)
(error 'inflate "unexpected end of file")
(begin
(set! bb (+ bb (arithmetic-shift v bk)))
;; assume that lookahead never needs more than 32 bytes:
(if (peeked . < . 32)
(set! peeked (add1 peeked))
(read-byte input-port)))))
(set! bk (+ bk 8))
(NEEDBITS n))
(define (DUMPBITS n)
(set! bb (arithmetic-shift bb (- n)))
(set! bk (- bk n)))