opencl: Rename cl-addressing-mode, cl-filter-mode

diff --git a/extra/opencl/opencl-docs.factor b/extra/opencl/opencl-docs.factor
index dc881e47c7d7456feb077c55732c8d4ea108ce7e..b60fe1e307661a3c5effe3aba2aea5517258c23e 100644 (file)
--- a/extra/opencl/opencl-docs.factor
+++ b/extra/opencl/opencl-docs.factor
@@ -4,7 +4,7 @@ USING: help.markup help.syntax kernel quotations strings opencl.private
 math byte-arrays alien ;
 IN: opencl
 
-HELP: cl-addressing-mode
+HELP: sampler>cl-addressing-mode
 { $values
     { "sampler" cl-sampler }
     { "addressing-mode" cl-addressing-mode }
@@ -61,7 +61,7 @@ HELP: cl-event-type
 }
 { $description "Returns the type of operation that created the event." } ;
 
-HELP: cl-filter-mode
+HELP: sampler>cl-filter-mode
 { $values
     { "sampler" cl-sampler }
     { "filter-mode" cl-filter-mode }

diff --git a/extra/opencl/opencl.factor b/extra/opencl/opencl.factor
index 1641579402afbef84c931e3fa73dd23895d3cd8b..a49cce504b68e70b3a94a2665de7ec259ef00328 100644 (file)
--- a/extra/opencl/opencl.factor
+++ b/extra/opencl/opencl.factor
@@ -520,10 +520,10 @@ PRIVATE>
 : cl-normalized-coords? ( sampler -- ? )
     handle>> CL_SAMPLER_NORMALIZED_COORDS sampler-info-bool ; inline
 
-: cl-addressing-mode ( sampler -- addressing-mode )
+: sampler>cl-addressing-mode ( sampler -- addressing-mode )
     handle>> CL_SAMPLER_ADDRESSING_MODE sampler-info-uint cl_addressing_mode>addressing-mode ; inline
 
-: cl-filter-mode ( sampler -- filter-mode )
+: sampler>cl-filter-mode ( sampler -- filter-mode )
     handle>> CL_SAMPLER_FILTER_MODE sampler-info-uint cl_filter_mode>filter-mode ; inline
 
 : <cl-program> ( options strings -- program )