diff options
| author | Gaëtan Gilbert | 2021-04-01 19:35:27 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2021-04-14 12:54:05 +0200 |
| commit | 004bf5770bdcdd1b35dd27f683c733505823e741 (patch) | |
| tree | ddab8d75e94782d2f21e7d2cc4fae83f6326f7dc /vernac | |
| parent | ea62d1e19f2ba565ea3a18ba3709a06af5c845ac (diff) | |
Put async worker id in universe names
This removes the need for the remote counter.
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/vernacentries.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/vernacentries.ml b/vernac/vernacentries.ml index af40292f18..54f034c74e 100644 --- a/vernac/vernacentries.ml +++ b/vernac/vernacentries.ml @@ -413,7 +413,7 @@ let sort_universes g = let levels = traverse LMap.empty [normalize Level.set, 0] in let max_level = LMap.fold (fun _ n accu -> max n accu) levels 0 in let dummy_mp = Names.DirPath.make [Names.Id.of_string "Type"] in - let ulevels = Array.init max_level (fun i -> Level.(make (UGlobal.make dummy_mp i))) in + let ulevels = Array.init max_level (fun i -> Level.(make (UGlobal.make dummy_mp "" i))) in let ulevels = Array.cons Level.set ulevels in (* Add the normal universes *) let fold (cur, ans) u = |