From 6a4dccff655851fdde5a41e219949204ad60c1f7 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 20 Mar 2006 20:33:43 +0000 Subject: [PATCH] tweak for 301.11 inlining svn: r2468 --- collects/mzlib/inflate.ss | 24 +++++++++++++----------- 1 file changed, 13 insertions(+), 11 deletions(-) diff --git a/collects/mzlib/inflate.ss b/collects/mzlib/inflate.ss index 7f185818d5..8c2e0b55d2 100644 --- a/collects/mzlib/inflate.ss +++ b/collects/mzlib/inflate.ss @@ -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)))