images.cocoa: set premultiplied-alpha? on loaded images

diff --git a/basis/images/cocoa/cocoa.factor b/basis/images/cocoa/cocoa.factor
index a308d3f47531c7a74080420a5711cc9199f6aae2..c170b0d89705f4bd716fa074aaff76257e4b1078 100644 (file)
--- a/basis/images/cocoa/cocoa.factor
+++ b/basis/images/cocoa/cocoa.factor
@@ -57,7 +57,8 @@ PRIVATE>
     image CGImageGetHeight :> h
     { w h } [
         0 0 w h <CGRect> image CGContextDrawImage
-    ] make-bitmap-image ;
+    ] make-bitmap-image
+    t >>premultiplied-alpha? ;
 
 M: ns-image stream>image
     drop stream-contents <CGImage> CGImage>image ;