specialized-arrays: performed some cleanup.

[factor.git] / basis / images / gtk / gtk.factor

diff --git a/basis/images/gtk/gtk.factor b/basis/images/gtk/gtk.factor
index 05015c2dfcde726cfafba6033529c72633025eb9..95b677b3c25785cfafe54e6851aedf65dc6624a2 100644 (file)
--- a/basis/images/gtk/gtk.factor
+++ b/basis/images/gtk/gtk.factor
@@ -38,7 +38,7 @@ os { linux freebsd netbsd openbsd } member? [
         bytes-per-row rowstride =
         [ pixels h rowstride * memory>byte-array ]
         [
-            pixels rowstride h * <direct-uchar-array>
+            pixels rowstride h * uchar <c-direct-array>
             rowstride <sliced-groups>
             [ bytes-per-row head-slice ] map concat
         ] if