From 7292cab7e9ffe154d4fe2d533eedd58d4c512cc9 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 25 Nov 2005 04:03:14 +0000 Subject: [PATCH] fixed PR 7623 I think svn: r1402 original commit: a1d7467a28ec01c1f4a67f2379c9e2ae9cff902d --- collects/mrlib/cache-image-snip.ss | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/collects/mrlib/cache-image-snip.ss b/collects/mrlib/cache-image-snip.ss index e77eddb5..e3ea6b72 100644 --- a/collects/mrlib/cache-image-snip.ss +++ b/collects/mrlib/cache-image-snip.ss @@ -303,16 +303,16 @@ (let* ([m1 (vector-ref argb-vector argb-i)] [m2 (bytes-ref mask-bytes (+ str-i 1))] ;; get red coordinate [m3 (build-m3 m1 m2)] + [bang (lambda (i v) (vector-set! argb-vector i (floor v)))] [do-b (lambda (off) - (vector-set! argb-vector - (+ argb-i off) - (build-b3 m1 - (vector-ref argb-vector (+ argb-i off)) - m2 - (bytes-ref color-bytes (+ str-i off)) - m3)))]) - (vector-set! argb-vector argb-i m3) + (bang (+ argb-i off) + (build-b3 m1 + (vector-ref argb-vector (+ argb-i off)) + m2 + (bytes-ref color-bytes (+ str-i off)) + m3)))]) + (bang argb-i m3) (do-b 1) (do-b 2) (do-b 3)))))