aboutsummaryrefslogtreecommitdiffhomepage
path: root/toplevel
diff options
context:
space:
mode:
authorGravatar delahaye <delahaye@85f007b7-540e-0410-9357-904b9bb8a0f7>2001-01-03 15:55:07 +0000
committerGravatar delahaye <delahaye@85f007b7-540e-0410-9357-904b9bb8a0f7>2001-01-03 15:55:07 +0000
commit191aa5a3a923654d01c35a145a63166a28a2b886 (patch)
tree41a0e44ac92c3eebd8a4a032d3641ecafcc59383 /toplevel
parentb20e1be71f9b5c5585b214e30b5042676fa6cd46 (diff)
Rattrapage d'erreur pour le Case + Eval Compute in pour Definition
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1232 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
-rw-r--r--toplevel/command.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml
index d1b9ba4fe..2055e5b8a 100644
--- a/toplevel/command.ml
+++ b/toplevel/command.ml
@@ -67,10 +67,10 @@ let definition_body_red red_option ident (local,n) com comtypeopt =
let ce = constant_entry_of_com (com,comtypeopt) in
let ce' = red_constant_entry ce red_option in
match n with
- | NeverDischarge -> declare_global_definition ident ce n local
+ | NeverDischarge -> declare_global_definition ident ce' n local
| DischargeAt disch_sp ->
if Lib.is_section_p disch_sp then begin
- let c = constr_of_constr_entry ce in
+ let c = constr_of_constr_entry ce' in
declare_variable ident (SectionLocalDef c,n,false);
if is_verbose() then message ((string_of_id ident) ^ " is defined");
if Pfedit.refining () then