File tree Expand file tree Collapse file tree 3 files changed +4
-4
lines changed Expand file tree Collapse file tree 3 files changed +4
-4
lines changed Original file line number Diff line number Diff line change 1
1
external time : unit -> int64 = " caml_get_monotonic_time"
2
2
3
- type sleep = { time : int64 ; mutable canceled : bool ; thread : unit Lwt .u }
3
+ type t = { time : int64 ; mutable canceled : bool ; thread : unit Lwt .u }
4
4
5
5
let sleepers = ref []
6
6
Original file line number Diff line number Diff line change @@ -26,10 +26,10 @@ val ns: int64 -> unit Lwt.t
26
26
27
27
(* * {1 Values used by the schedulers} *)
28
28
29
- type sleep = { time : int64 ; mutable canceled : bool ; thread : unit Lwt .u }
29
+ type t = { time : int64 ; mutable canceled : bool ; thread : unit Lwt .u }
30
30
(* * The type for a sleeping task. *)
31
31
32
- val new_sleepers : unit -> sleep list
32
+ val new_sleepers : unit -> t list
33
33
(* * [new_sleepers ()] is used by the scheduler to find at their convenience
34
34
the tasks that need to be enqueued into their task set. This also empties
35
35
the list of sleepers. *)
Original file line number Diff line number Diff line change 16
16
17
17
let ns ns = Lwt_unix. sleep (Duration. to_f ns)
18
18
19
- type sleep = { time : int64 ; mutable canceled : bool ; thread : unit Lwt .u }
19
+ type t = { time : int64 ; mutable canceled : bool ; thread : unit Lwt .u }
20
20
21
21
let new_sleepers () = []
You can’t perform that action at this time.
0 commit comments