diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-02-14 16:22:36 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-02-14 16:22:36 +0000 |
| commit | 4a84969d8f7faffef19a0da71bfccedc437daf5d (patch) | |
| tree | 12b82ec450ff3b4ed7f9b75135c1059453f127e3 /toplevel | |
| parent | 9d328613b3cd77cfe68d08340c09e486650044fc (diff) | |
Erreur sur commit
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1389 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/command.ml | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index 5a029a0e6..49dd7b887 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -440,11 +440,8 @@ let save opacity id ({const_entry_body = pft; const_entry_type = tpo} as const) strength = begin match strength with | DischargeAt disch_sp when Lib.is_section_p disch_sp -> - (* let c = constr_of_constr_entry const in let _ = declare_variable id (SectionLocalDef c,strength,opacity) in () - *) - let _ = declare_constant id (ConstantEntry const,strength,opacity)in () | NeverDischarge | DischargeAt _ -> let _ = declare_constant id (ConstantEntry const,strength,opacity)in () | NotDeclare -> apply_tac_not_declare id pft tpo |