Remove many uses of <int> and *int etc

[factor.git] / extra / opencl / opencl-tests.factor

diff --git a/extra/opencl/opencl-tests.factor b/extra/opencl/opencl-tests.factor
index 6fd7bb581d5513b201857ca0ebe82db1c8b801eb..628a9b0d63a216caef4370ef95133207b5f87432 100644 (file)
--- a/extra/opencl/opencl-tests.factor
+++ b/extra/opencl/opencl-tests.factor
@@ -32,7 +32,7 @@ __kernel void square(
             cl-read-access num-bytes in <cl-buffer> &dispose :> in-buffer
             cl-write-access num-bytes f <cl-buffer> &dispose :> out-buffer
             
-            kernel in-buffer out-buffer num-floats <uint> 3array
+            kernel in-buffer out-buffer num-floats uint <ref> 3array
             { num-floats } [ ] cl-queue-kernel &dispose drop
             
             cl-finish