diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2016-12-02 12:23:14 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2017-01-30 14:12:17 +0100 |
commit | a54dccb53fa8d6c12745b5f7b2c3c993a915b5bd (patch) | |
tree | 7af8371af9d08070410db9a66b16c39e4106343c /stm/asyncTaskQueue.ml | |
parent | 6e4c4578044c15ec172009a570d13b9e168cb93e (diff) |
Fix a typo in STM universe communications.
Diffstat (limited to 'stm/asyncTaskQueue.ml')
-rw-r--r-- | stm/asyncTaskQueue.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stm/asyncTaskQueue.ml b/stm/asyncTaskQueue.ml index fa6422cdc..8acc3c233 100644 --- a/stm/asyncTaskQueue.ml +++ b/stm/asyncTaskQueue.ml @@ -170,7 +170,7 @@ module Make(T : Task) = struct | Unix.WSIGNALED sno -> Printf.sprintf "signalled(%d)" sno | Unix.WSTOPPED sno -> Printf.sprintf "stopped(%d)" sno) in let more_univs n = - CList.init 10 (fun _ -> + CList.init n (fun _ -> Universes.new_univ_level (Global.current_dirpath ())) in let rec kill_if () = |