diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2017-08-16 09:41:04 +0200 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2017-08-16 09:41:04 +0200 |
commit | ffd6a20eb807cdd381d511e7b59799495122591d (patch) | |
tree | 814c9fce26132606f89388b25f163b836cf66af9 /plugins/ltac/g_class.ml4 | |
parent | 96d53d99d32f7006e553c6772b9c983925fb31f6 (diff) | |
parent | d01e3b07470ab326f5754332ac812f21794721bc (diff) |
Merge PR #841: Timorous fix of bug #5598 on global existing class in sections
Diffstat (limited to 'plugins/ltac/g_class.ml4')
-rw-r--r-- | plugins/ltac/g_class.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ltac/g_class.ml4 b/plugins/ltac/g_class.ml4 index dd24aa3db..104977aef 100644 --- a/plugins/ltac/g_class.ml4 +++ b/plugins/ltac/g_class.ml4 @@ -20,7 +20,7 @@ let set_transparency cl b = List.iter (fun r -> let gr = Smartlocate.global_with_alias r in let ev = Tacred.evaluable_of_global_reference (Global.env ()) gr in - Classes.set_typeclass_transparency ev false b) cl + Classes.set_typeclass_transparency ev (Locality.make_section_locality None) b) cl VERNAC COMMAND EXTEND Typeclasses_Unfold_Settings CLASSIFIED AS SIDEFF | [ "Typeclasses" "Transparent" reference_list(cl) ] -> [ |