diff options
author | gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-05-09 20:48:29 +0000 |
---|---|---|
committer | gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-05-09 20:48:29 +0000 |
commit | 1eaebf4ab7616b2be16b957736e80f1d6100eae0 (patch) | |
tree | 947ba448881d084f271365a29a15b10e649d0767 /toplevel/command.ml | |
parent | 6105951610e140828d5be2c187c927d2119c8df0 (diff) |
Use definition_entry to declare local definitions
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16502 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/command.ml')
-rw-r--r-- | toplevel/command.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index aba8a5a81..67bc387ab 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -139,7 +139,7 @@ let declare_definition ident (local, k) ce imps hook = let () = !declare_definition_hook ce in let r = match local with | Discharge when Lib.sections_are_opened () -> - let c = SectionLocalDef(ce.const_entry_body, ce.const_entry_type, false) in + let c = SectionLocalDef ce in let _ = declare_variable ident (Lib.cwd(), c, IsDefinition k) in let () = definition_message ident in let () = if Pfedit.refining () then |