simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 03:05:28 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

small change in test

Browse source
This commit is contained in:
Simon Cruanes 2015-09-01 11:05:58 +02:00
parent 64a41b0789
commit 5af816fe9b
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/threads/CCThread.ml
View file

@ -112,7 +112,9 @@ module Queue = struct
let q = Queue.create 2 in
let senders = Arr.spawn 3
(fun i ->
List.iter (Queue.push q) lists.(i)
if i=1
then Queue.push_list q lists.(i) (* test push_list *)
else List.iter (Queue.push q) lists.(i)
)
in
let l = CCLock.create [] in