gpu.state: use qualified for all c-types.

diff --git a/extra/gpu/state/state.factor b/extra/gpu/state/state.factor
index 5cc4b7212558c2048ad09c1b85c566ea30dce837..3230787492d70c3f624b60317fe9826e94f1911e 100755 (executable)
--- a/extra/gpu/state/state.factor
+++ b/extra/gpu/state/state.factor
@@ -4,7 +4,7 @@ combinators gpu kernel literals math math.rectangles opengl
 opengl.gl sequences typed variants specialized-arrays ;
 QUALIFIED-WITH: alien.c-types c
 FROM: math => float ;
-SPECIALIZED-ARRAY: int
+SPECIALIZED-ARRAY: c:int
 SPECIALIZED-ARRAY: c:float
 IN: gpu.state
 
@@ -416,16 +416,16 @@ M: mask-state set-gpu-state*
     [ set-gpu-state* ] if ; inline
 
 : get-gl-bool ( enum -- value )
-    0 uchar <ref> [ glGetBooleanv ] keep uchar deref c-bool> ;
+    0 c:uchar <ref> [ glGetBooleanv ] keep c:uchar deref c-bool> ;
 : get-gl-int ( enum -- value )
-    0 int <ref> [ glGetIntegerv ] keep int deref ;
+    0 c:int <ref> [ glGetIntegerv ] keep c:int deref ;
 : get-gl-float ( enum -- value )
     0 c:float <ref> [ glGetFloatv ] keep c:float deref ;
 
 : get-gl-bools ( enum count -- value )
     <byte-array> [ glGetBooleanv ] keep [ c-bool> ] { } map-as ;
 : get-gl-ints ( enum count -- value )
-    int <c-array> [ glGetIntegerv ] keep ;
+    c:int <c-array> [ glGetIntegerv ] keep ;
 : get-gl-floats ( enum count -- value )
     c:float <c-array> [ glGetFloatv ] keep ;