diff options
| author | Pierre-Marie Pédrot | 2018-10-01 13:40:45 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-11-09 14:10:27 +0100 |
| commit | 23ef45aa14308aa0b1e1b1f6061ec9e7e7634e49 (patch) | |
| tree | 755fe122bf2b78df37d42897fdec6d66e8695de6 /checker/values.ml | |
| parent | 6e5dd2ee8bc014d1f99cef3156a5114b11510398 (diff) | |
Use arrays of names instead of lists in abstract universe names.
There is little point in having a list, as there is virtually no sharing
nor expansion of bound universe names. This representation is thus more
compact.
Diffstat (limited to 'checker/values.ml')
| -rw-r--r-- | checker/values.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/checker/values.ml b/checker/values.ml index 68bac10839..e21acd8179 100644 --- a/checker/values.ml +++ b/checker/values.ml @@ -122,7 +122,7 @@ let v_cstrs = let v_variance = v_enum "variance" 3 let v_instance = Annot ("instance", Array v_level) -let v_abs_context = v_tuple "abstract_universe_context" [|List v_name; v_cstrs|] +let v_abs_context = v_tuple "abstract_universe_context" [|Array v_name; v_cstrs|] let v_abs_cum_info = v_tuple "cumulativity_info" [|v_abs_context; Array v_variance|] let v_context_set = v_tuple "universe_context_set" [|v_hset v_level;v_cstrs|] |