     } case ;
 
 : kernel-info-string ( handle name -- string )
-    [ clGetKernelInfo ] info-string ; inline
+    [ clGetKernelInfo ] info-string ;
 
 : kernel-info-uint ( handle name -- uint )
-    [ clGetKernelInfo ] info-uint ; inline
+    [ clGetKernelInfo ] info-uint ;
 
 : kernel-work-group-info-size_t ( handle1 handle2 name -- size_t )
-    [ clGetKernelWorkGroupInfo ] 2info-size_t ; inline
+    [ clGetKernelWorkGroupInfo ] 2info-size_t ;
 
 : event-info-uint ( handle name -- uint )
-    [ clGetEventInfo ] info-uint ; inline
+    [ clGetEventInfo ] info-uint ;
 
 : event-info-int ( handle name -- int )
-    [ clGetEventInfo ] info-int ; inline
+    [ clGetEventInfo ] info-int ;
 
 : cl_command_type>command-type ( cl_command-type -- command-type )
     {

    } case ; inline

: profiling-info-ulong ( handle name -- ulong )
    [ clGetEventProfilingInfo ] info-ulong ; inline


: bind-kernel-arg-buffer ( kernel index buffer -- )
    [ handle>> ] [ cl_mem heap-size ] [ handle>> <void*> ] tri*

SYMBOLS: cl-current-context cl-current-queue cl-current-device ;

<PRIVATE

: (current-cl-context) ( -- cl-context )
    cl-current-context get ; inline

