diff options
author | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-12-13 21:26:48 +0100 |
---|---|---|
committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-12-17 10:56:07 +0100 |
commit | 1172b52735a299dfc91aee36b30b576dfeff581c (patch) | |
tree | 67c42534af08f70d0eeefe78245483867cdb1248 /vernac/comDefinition.ml | |
parent | 7a5688f6e2421a706c16e23e445d42f39a82e74b (diff) |
[flags] Make program_mode a parameter for commands in vernac.
This is useful as it allows to reflect program_mode behavior as an attribute.
Diffstat (limited to 'vernac/comDefinition.ml')
-rw-r--r-- | vernac/comDefinition.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vernac/comDefinition.ml b/vernac/comDefinition.ml index c8b289c9d..883121479 100644 --- a/vernac/comDefinition.ml +++ b/vernac/comDefinition.ml @@ -104,11 +104,11 @@ let check_definition (ce, evd, _, imps) = check_evars_are_solved (Global.env ()) evd Evd.empty; ce -let do_definition ident k univdecl bl red_option c ctypopt hook = +let do_definition ~program_mode ident k univdecl bl red_option c ctypopt hook = let (ce, evd, univdecl, imps as def) = interp_definition univdecl bl (pi2 k) red_option c ctypopt in - if Flags.is_program_mode () then + if program_mode then let env = Global.env () in let (c,ctx), sideff = Future.force ce.const_entry_body in assert(Safe_typing.empty_private_constants = sideff); |