Hash-consing dès la lib_stk

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3411 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 4 insertions, 4 deletions

diff --git a/library/declare.ml b/library/declare.ml
index 504f38b824..b3a44fc050 100644
--- a/library/declare.ml
+++ b/library/declare.ml
@@ -176,15 +176,15 @@ let (in_constant, out_constant) =
     export_function = export_constant } 
 
 let hcons_constant_declaration = function
-  | (DefinitionEntry ce, stre) ->
-      (DefinitionEntry
+  | DefinitionEntry ce ->
+      DefinitionEntry
        { const_entry_body = hcons1_constr ce.const_entry_body;
 	 const_entry_type = option_app hcons1_constr ce.const_entry_type;
-         const_entry_opaque = ce.const_entry_opaque }, stre)
+         const_entry_opaque = ce.const_entry_opaque }
   | cd -> cd
 
 let declare_constant id (cd,kind) =
-  (* let cd = hcons_constant_declaration cd in *)
+  let cd = hcons_constant_declaration cd in
   let (sp,kn as oname) = add_leaf id (in_constant (ConstantEntry cd,kind)) in
   if is_implicit_args() then declare_constant_implicits kn;
   Dischargedhypsmap.set_discharged_hyps sp [] ;