diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-09-21 16:36:37 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-09-21 16:36:37 +0000 |
| commit | 2a9c3d3ddf535564f5468a3ad8811e67ba4488b0 (patch) | |
| tree | 70b641d8169a09cc6833897d0e5fe45e50bba29f /kernel/cooking.ml | |
| parent | 469975942e7ce58127286e05adba06afe2fdd8e9 (diff) | |
repare la perte d'opacite a la fermeture de section
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2050 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/cooking.ml')
| -rw-r--r-- | kernel/cooking.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/cooking.ml b/kernel/cooking.ml index e8ed6ca32..1bccf60f6 100644 --- a/kernel/cooking.ml +++ b/kernel/cooking.ml @@ -162,4 +162,4 @@ let cook_constant env r = let hyps = List.map (fun (sp,c,t) -> (basename sp,c,t)) cb.const_hyps in let hyps = map_named_context (expmod_constr env r.d_modlist) hyps in let body,typ = abstract_constant r.d_abstract hyps (body,typ) in - (body, typ, cb.const_constraints) + (body, typ, cb.const_constraints, cb.const_opaque) |