Remove many uses of <int> and *int etc

[factor.git] / extra / gpu / state / state.factor

diff --git a/extra/gpu/state/state.factor b/extra/gpu/state/state.factor
index db767740384560dced591ffeebb77f7e8ae0cb7c..80fc89fea491c774c0dd91ef48dd4c467c459236 100755 (executable)
--- a/extra/gpu/state/state.factor
+++ b/extra/gpu/state/state.factor
@@ -416,11 +416,11 @@ M: mask-state set-gpu-state*
     [ set-gpu-state* ] if ; inline
 
 : get-gl-bool ( enum -- value )
-    0 <uchar> [ glGetBooleanv ] keep *uchar c-bool> ;
+    0 uchar <ref> [ glGetBooleanv ] keep uchar deref c-bool> ;
 : get-gl-int ( enum -- value )
-    0 <int> [ glGetIntegerv ] keep *int ;
+    0 int <ref> [ glGetIntegerv ] keep int deref ;
 : get-gl-float ( enum -- value )
-    0 <float> [ glGetFloatv ] keep *float ;
+    0 float <ref> [ glGetFloatv ] keep float deref ;
 
 : get-gl-bools ( enum count -- value )
     <byte-array> [ glGetBooleanv ] keep [ c-bool> ] { } map-as ;