forgot the flip check (caught by the test suites)

2010-09-02 12:20:19 -05:00 · 2010-09-02 12:20:19 -05:00 · 7fead2875a
commit 7fead2875a
parent 09bd56081b
1 changed files with 1 additions and 1 deletions
--- a/collects/mrlib/image-core.rkt
+++ b/collects/mrlib/image-core.rkt
@ -830,7 +830,7 @@ the mask bitmap and the original bitmap are all together in a single bytes!

 (define (do-rotate bitmap flip?)
  (cond
-    [(zero? (bitmap-angle bitmap))
+    [(and (not flip?) (zero? (bitmap-angle bitmap)))
     ;; don't rotate anything in this case.
     (void)]
    [else