diff options
| author | Emilio Jesus Gallego Arias | 2019-02-19 17:33:48 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-02-19 17:33:48 +0100 |
| commit | 5f26707db8b78e580801aa7565539fc2a8f0a76a (patch) | |
| tree | 0827cbfb6b1eccba05aa7cec02e2feed4d0bbe42 /lib | |
| parent | 582ba8464962f69f0808ccdd14e7bd64e786875f (diff) | |
| parent | 032398fb5e2bc88e911f60ddfc4982a3826b55cd (diff) | |
Merge PR #9603: Make inductive cumulativity flag local to vernacentries
Reviewed-by: ejgallego
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/flags.ml | 4 | ||||
| -rw-r--r-- | lib/flags.mli | 4 |
2 files changed, 0 insertions, 8 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index 768d359cce..1195b8caf1 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -101,10 +101,6 @@ let verbosely f x = without_option quiet f x let if_silent f x = if !quiet then f x let if_verbose f x = if not !quiet then f x -let polymorphic_inductive_cumulativity = ref false -let make_polymorphic_inductive_cumulativity b = polymorphic_inductive_cumulativity := b -let is_polymorphic_inductive_cumulativity () = !polymorphic_inductive_cumulativity - let warn = ref true let make_warn flag = warn := flag; () let if_warn f x = if !warn then f x diff --git a/lib/flags.mli b/lib/flags.mli index 4ef5fb4445..2b4446a1db 100644 --- a/lib/flags.mli +++ b/lib/flags.mli @@ -75,10 +75,6 @@ val verbosely : ('a -> 'b) -> 'a -> 'b val if_silent : ('a -> unit) -> 'a -> unit val if_verbose : ('a -> unit) -> 'a -> unit -(** Global polymorphic inductive cumulativity flag. *) -val make_polymorphic_inductive_cumulativity : bool -> unit -val is_polymorphic_inductive_cumulativity : unit -> bool - val warn : bool ref val make_warn : bool -> unit val if_warn : ('a -> unit) -> 'a -> unit |