From 7a876fbfdd6557fd939f8a25eb31aafa1421a996 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 4 Mar 2005 22:13:10 +0000
Subject: [PATCH] .

original commit: 681be32df23c269af75bc91049e5f83af6e986af
---
 collects/mzlib/inflate.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/mzlib/inflate.ss b/collects/mzlib/inflate.ss
index daca530..4580311 100644
--- a/collects/mzlib/inflate.ss
+++ b/collects/mzlib/inflate.ss
@@ -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))