opencl: use flags{ }.

diff --git a/extra/opencl/opencl.factor b/extra/opencl/opencl.factor
index db3e64fc1e4dfb639b38fcb895e1c7d28a4b8f9c..b41ee1d8774e930d9f90eda11936dab519c3aee0 100644 (file)
--- a/extra/opencl/opencl.factor
+++ b/extra/opencl/opencl.factor
@@ -2,9 +2,9 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors alien alien.c-types alien.data arrays
 byte-arrays combinators combinators.smart destructors
-io.encodings.ascii io.encodings.string kernel libc locals make
-math namespaces opencl.ffi sequences specialized-arrays
-variants ;
+io.encodings.ascii io.encodings.string kernel libc literals
+locals make math namespaces opencl.ffi sequences
+specialized-arrays variants ;
 IN: opencl
 SPECIALIZED-ARRAYS: void* char size_t ;
 
@@ -184,7 +184,7 @@ M: cl-read-access       buffer-access-constant drop CL_MEM_READ_ONLY ;
 M: cl-write-access      buffer-access-constant drop CL_MEM_WRITE_ONLY ;
 
 GENERIC: buffer-map-flags ( buffer-access-mode -- n )
-M: cl-read-write-access buffer-map-flags drop CL_MAP_READ CL_MAP_WRITE bitor ;
+M: cl-read-write-access buffer-map-flags drop flags{ CL_MAP_READ CL_MAP_WRITE } ;
 M: cl-read-access       buffer-map-flags drop CL_MAP_READ ;
 M: cl-write-access      buffer-map-flags drop CL_MAP_WRITE ;