Remove many uses of <int> and *int etc

[factor.git] / extra / cuda / gl / gl.factor

diff --git a/extra/cuda/gl/gl.factor b/extra/cuda/gl/gl.factor
index d4943e1350a4ce9d47eb4551ff3dbde588c36ecf..6ebee377aa04d09b2d3dc76f14299d98d2e8a45c 100644 (file)
--- a/extra/cuda/gl/gl.factor
+++ b/extra/cuda/gl/gl.factor
@@ -24,7 +24,7 @@ IN: cuda.gl
     [ 1 swap <void*> f cuGraphicsMapResources cuda-error ] [
         [ CUdeviceptr <c-object> uint <c-object> ] dip
         [ cuGraphicsResourceGetMappedPointer cuda-error ] 3keep drop
-        [ *uint ] [ *uint ] bi*
+        [ uint deref ] [ uint deref ] bi*
     ] bi ; inline
 
 : unmap-resource ( resource -- )