Remove many uses of <int> and *int etc

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

diff --git a/extra/cuda/contexts/contexts.factor b/extra/cuda/contexts/contexts.factor
index 7a9ab59a6a5bc51911152c897ea9b57ec752b4c8..0ba01cc45350794138b3ccae51777ca944d8898a 100644 (file)
--- a/extra/cuda/contexts/contexts.factor
+++ b/extra/cuda/contexts/contexts.factor
@@ -16,7 +16,7 @@ IN: cuda.contexts
     cuCtxSynchronize cuda-error ; inline
 
 : context-device ( -- n )
-    CUdevice <c-object> [ cuCtxGetDevice cuda-error ] keep *int ; inline
+    CUdevice <c-object> [ cuCtxGetDevice cuda-error ] keep int deref ; inline
 
 : destroy-context ( context -- ) cuCtxDestroy cuda-error ; inline