diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-01-02 20:28:44 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-01-02 20:28:44 +0000 |
| commit | b96e45b1714c12daa1127e8bf14467eea07ebe17 (patch) | |
| tree | 8e5915dc3d72d498495e49a8bbbd7c066cb71026 /interp/modintern.ml | |
| parent | 0d3a3d5650cd374eed4272a0de1e3f926a8d3c40 (diff) | |
meilleure presentation des commentaires du traducteur
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5168 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/modintern.ml')
| -rw-r--r-- | interp/modintern.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/interp/modintern.ml b/interp/modintern.ml index 8a0c8e545..a8c0b22f3 100644 --- a/interp/modintern.ml +++ b/interp/modintern.ml @@ -79,9 +79,9 @@ let lookup_modtype (loc,qid) = Modops.error_not_a_modtype_loc loc (string_of_qualid qid) let transl_with_decl env = function - | CWith_Module (id,qid) -> + | CWith_Module ((_,id),qid) -> With_Module (id,lookup_module qid) - | CWith_Definition (id,c) -> + | CWith_Definition ((_,id),c) -> With_Definition (id,interp_constr Evd.empty env c) let rec interp_modtype env = function |