diff --git a/extra/opencl/opencl.factor b/extra/opencl/opencl.factor index db3e64fc1e..b41ee1d877 100644 --- 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 ;