bug module M:=N avec vm

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

1 files changed, 1 insertions, 1 deletions

diff --git a/kernel/term_typing.ml b/kernel/term_typing.ml
index 291c409e9a..57c1710ff5 100644
--- a/kernel/term_typing.ml
+++ b/kernel/term_typing.ml
@@ -102,7 +102,7 @@ let build_constant_declaration env kn (body,typ,cst,op,boxed) =
 	  (global_vars_set env (Declarations.force b)) 
 	  (global_vars_set env typ)
   in
-  let tps = from_val (compile_constant_body env kn body op boxed) in
+  let tps = from_val (compile_constant_body env body op boxed) in
   let hyps = keep_hyps env ids in
     { const_hyps = hyps;
       const_body = body;