images.loader.gtk: fix fall-through in case problem in image>GdkPixbuf

diff --git a/basis/images/loader/gtk/gtk.factor b/basis/images/loader/gtk/gtk.factor
index 3e020f18751453a55b92f66ebb0ad503a1032ae5..095fcea72c0dc96e260cd714d75499e5c095ba06 100644 (file)
--- a/basis/images/loader/gtk/gtk.factor
+++ b/basis/images/loader/gtk/gtk.factor
@@ -65,7 +65,7 @@ CONSTANT: bits>components {
         [ bitmap>> ]
         [ drop GDK_COLORSPACE_RGB ]
         [ has-alpha? ]
-        [ bytes-per-component 8 * ]
+        [ component-type>> bytes-per-component 8 * ]
         [ dim>> first2 ]
         [ rowstride ]
     } cleave f f gdk_pixbuf_new_from_data ;