diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-12-29 13:43:28 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-12-29 13:43:28 +0100 |
| commit | 3624d943513ff1d79fdadf5b231ffcd3786b16c8 (patch) | |
| tree | 6bfd3884ff693eb7bfe5abd3dfc21c537eb5f1ea /lib | |
| parent | c0e5746e6b273eb4592d24867da55dde40b656c9 (diff) | |
| parent | 1e1d8d67442dc3cdd248b7f5e027b9d6bf998ba3 (diff) | |
Merge PR #6405: Remove the local polymorphic flag hack.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/flags.ml | 8 | ||||
| -rw-r--r-- | lib/flags.mli | 4 |
2 files changed, 0 insertions, 12 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index cd4a22d58..ee4c0734a 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -108,14 +108,6 @@ let universe_polymorphism = ref false let make_universe_polymorphism b = universe_polymorphism := b let is_universe_polymorphism () = !universe_polymorphism -let local_polymorphic_flag = ref None -let use_polymorphic_flag () = - match !local_polymorphic_flag with - | Some p -> local_polymorphic_flag := None; p - | None -> is_universe_polymorphism () -let make_polymorphic_flag b = - local_polymorphic_flag := Some b - let polymorphic_inductive_cumulativity = ref false let make_polymorphic_inductive_cumulativity b = polymorphic_inductive_cumulativity := b let is_polymorphic_inductive_cumulativity () = !polymorphic_inductive_cumulativity diff --git a/lib/flags.mli b/lib/flags.mli index 62328e3d3..33d281798 100644 --- a/lib/flags.mli +++ b/lib/flags.mli @@ -74,10 +74,6 @@ val is_program_mode : unit -> bool val make_universe_polymorphism : bool -> unit val is_universe_polymorphism : unit -> bool -(** Local universe polymorphism flag. *) -val make_polymorphic_flag : bool -> unit -val use_polymorphic_flag : unit -> bool - (** Global polymorphic inductive cumulativity flag. *) val make_polymorphic_inductive_cumulativity : bool -> unit val is_polymorphic_inductive_cumulativity : unit -> bool |