Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: c63edb4d1f
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 24 lines (18 sloc) 0.492 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
open Froc_direct

let (e1 : unit Froc.event), s1 = Froc.make_event ()
let (e2 : unit Froc.event), s2 = Froc.make_event ()

let b1 = Froc.count e1
let b2 = Froc.count e2

let b3 = ~|(fun () -> ~.b1 + ~.b2)
(*
let b3 =
Froc_direct.direct begin fun () ->
Froc_direct.read b1 + Froc_direct.read b2
end
*)

;;

prerr_endline (string_of_int (Froc.sample b3));
Froc.send s1 ();
prerr_endline (string_of_int (Froc.sample b3));
Froc.send s2 ();
prerr_endline (string_of_int (Froc.sample b3));
Something went wrong with that request. Please try again.