From 01540ec84d87457ff07fc33a7586d24c697b51e8 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 5 Mar 2009 20:55:15 +0000 Subject: [PATCH] fix a really stupid bug that I introduced in r4490 svn: r13971 original commit: 4b7ec271911368349f2da9b039a84128a26cd522 --- collects/mzlib/deflate.ss | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/collects/mzlib/deflate.ss b/collects/mzlib/deflate.ss index c3c4f99..20e805a 100644 --- a/collects/mzlib/deflate.ss +++ b/collects/mzlib/deflate.ss @@ -17,11 +17,11 @@ (define-syntax INSERT_STRING (syntax-rules () [(_ s match_head UPDATE_HASH window-vec head-vec prev-vec ins_h) - #'(begin (UPDATE_HASH (vector-ref window-vec (+ s MIN_MATCH-1))) - (let ([mh (vector-ref head-vec (+ ins_h head-vec-delta))]) - (set! match_head mh) - (vector-set! prev-vec (bitwise-and s WMASK) mh)) - (vector-set! head-vec (+ head-vec-delta ins_h) s))])) + (begin (UPDATE_HASH (vector-ref window-vec (+ s MIN_MATCH-1))) + (let ([mh (vector-ref head-vec (+ ins_h head-vec-delta))]) + (set! match_head mh) + (vector-set! prev-vec (bitwise-and s WMASK) mh)) + (vector-set! head-vec (+ head-vec-delta ins_h) s))])) (define-syntax pqremove (syntax-rules ()