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

fix a really stupid bug that I introduced in r4490

Browse Source 
svn: r13971

original commit: 4b7ec271911368349f2da9b039a84128a26cd522
This commit is contained in:
Eli Barzilay 2009-03-05 20:55:15 +00:00
parent 9c6d98812d
commit 01540ec84d
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/deflate.ss
View File

@ -17,7 +17,7 @@
(define-syntax INSERT_STRING (define-syntax INSERT_STRING
(syntax-rules () (syntax-rules ()
[(_ s match_head UPDATE_HASH window-vec head-vec prev-vec ins_h) [(_ s match_head UPDATE_HASH window-vec head-vec prev-vec ins_h)
#'(begin (UPDATE_HASH (vector-ref window-vec (+ s MIN_MATCH-1))) (begin (UPDATE_HASH (vector-ref window-vec (+ s MIN_MATCH-1)))
(let ([mh (vector-ref head-vec (+ ins_h head-vec-delta))]) (let ([mh (vector-ref head-vec (+ ins_h head-vec-delta))])
(set! match_head mh) (set! match_head mh)
(vector-set! prev-vec (bitwise-and s WMASK) mh)) (vector-set! prev-vec (bitwise-and s WMASK) mh))