cuda.gl: add free-resource word to release interop handles

diff --git a/extra/cuda/gl/gl.factor b/extra/cuda/gl/gl.factor
index 268d270e7f0fe8de992658bd8677c93b67ea6118..2250c895e0112c14fecd1421ba823a58f4f82582 100644 (file)
--- a/extra/cuda/gl/gl.factor
+++ b/extra/cuda/gl/gl.factor
@@ -30,6 +30,10 @@ IN: cuda.gl
 
 DESTRUCTOR: unmap-resource
 
+: free-resource ( resource -- )
+    cuGraphicsUnregisterResource cuda-error ; inline
+
+DESTRUCTOR: free-resource
+
 : with-mapped-resource ( ..a resource quot: ( ..a device-ptr size -- ..b ) -- ..b )
     over [ map-resource ] 2dip '[ _ unmap-resource ] [ ] cleanup ; inline
-