diff options
author | 2016-02-21 00:14:13 +0100 | |
---|---|---|
committer | 2016-02-21 00:14:13 +0100 | |
commit | c5d0aa889fa80404f6c291000938e443d6200e5b (patch) | |
tree | 253fbb6ebe405b78b5e66a1e1f7d4da606dbfa78 /toplevel | |
parent | a4b457bef4290fed3f2869795f1539de53b3805a (diff) | |
parent | e54d014ce10dea4a74b66e5091d25e4b26bd71fa (diff) |
Merge branch 'v8.5'
Diffstat (limited to 'toplevel')
-rw-r--r-- | toplevel/classes.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/classes.ml b/toplevel/classes.ml index 2089bc944..898ef0d9e 100644 --- a/toplevel/classes.ml +++ b/toplevel/classes.ml @@ -293,7 +293,7 @@ let new_instance ?(abstract=false) ?(global=false) poly ctx (instid, bk, cl) pro if not (Evd.has_undefined evm) && not (Option.is_empty term) then declare_instance_constant k pri global imps ?hook id pl poly evm (Option.get term) termtype - else if !refine_instance || Option.is_empty term then begin + else if Flags.is_program_mode () || !refine_instance || Option.is_empty term then begin let kind = Decl_kinds.Global, poly, Decl_kinds.DefinitionBody Decl_kinds.Instance in if Flags.is_program_mode () then let hook vis gr _ = |