cuda.gl: use dispose*

mrjbq7 · Jun 1, 2024 · 740744e · 740744e
1 parent 4451add
commit 740744e
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/extra/cuda/gl/gl.factor b/extra/cuda/gl/gl.factor
@@ -43,12 +43,13 @@ DESTRUCTOR: free-resource
 
 TUPLE: cuda-buffer
     { buffer buffer }
-    { resource pinned-c-ptr } ;
+    { resource pinned-c-ptr }
+    disposed ;
 
 : <cuda-buffer> ( upload usage kind size initial-data flags -- buffer )
-    [ <buffer> dup ] dip buffer>resource cuda-buffer boa ; inline
+    [ <buffer> dup ] dip buffer>resource f cuda-buffer boa ; inline
 
-M: cuda-buffer dispose
+M: cuda-buffer dispose*
     [ [ free-resource ] when* f ] change-resource
     buffer>> dispose ; inline