[bknr-cvs] r2490 - branches/trunk-reorg/projects/quickhoney/src

[hhubner at common-lisp.net]

Author: hhubner
Date: Thu Feb 14 03:10:49 2008
New Revision: 2490

Modified:
   branches/trunk-reorg/projects/quickhoney/src/imageproc.lisp
Log:
Fix bug that was not a bug


Modified: branches/trunk-reorg/projects/quickhoney/src/imageproc.lisp
==============================================================================
--- branches/trunk-reorg/projects/quickhoney/src/imageproc.lisp	(original)
+++ branches/trunk-reorg/projects/quickhoney/src/imageproc.lisp	Thu Feb 14 03:10:49 2008
@@ -27,8 +27,8 @@
       (let ((color (parse-color background-color :image mask-image))
             (white (parse-color "ffffff" :image mask-image)))
         (do-pixels (mask-image)
-          (when t (eql (ldb (byte 24 0) (raw-pixel)) white)
-              (setf (raw-pixel) color))))
+          (when (eql (ldb (byte 24 0) (raw-pixel)) white)
+            (setf (raw-pixel) color))))
       (copy-image mask-image button-image
                   0 0
                   0 0