cuda.gl: enum>number the flags argument to gl-buffer>resource so that single CUDA...

diff --git a/extra/cuda/gl/gl.factor b/extra/cuda/gl/gl.factor
index ae4cefb11f01d46a784284aed8fe5741a225250f..925c7d137f18a48de54d93edde89cd0ebeb33b18 100644 (file)
--- a/extra/cuda/gl/gl.factor
+++ b/extra/cuda/gl/gl.factor
@@ -1,7 +1,7 @@
 ! (c)2010 Joe Groff bsd license
 USING: accessors alien.c-types alien.data alien.destructors
-continuations cuda cuda.ffi cuda.gl.ffi cuda.utils destructors
-fry gpu.buffers kernel ;
+alien.enums continuations cuda cuda.ffi cuda.gl.ffi cuda.utils
+destructors fry gpu.buffers kernel ;
 IN: cuda.gl
 
 : create-gl-cuda-context ( device flags -- context )
@@ -13,6 +13,7 @@ IN: cuda.gl
     [ [ create-gl-cuda-context ] (set-up-cuda-context) ] dip (with-cuda-context) ; inline 
 
 : gl-buffer>resource ( gl-buffer flags -- resource )
+    enum>number
     [ CUgraphicsResource <c-object> ] 2dip
     [ cuGraphicsGLRegisterBuffer cuda-error ] 3keep 2drop *void* ; inline