diff options
Diffstat (limited to 'contrib/xml/xmlcommand.ml4')
| -rw-r--r-- | contrib/xml/xmlcommand.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/xml/xmlcommand.ml4 b/contrib/xml/xmlcommand.ml4 index a2baceade2..14d0f94ac0 100644 --- a/contrib/xml/xmlcommand.ml4 +++ b/contrib/xml/xmlcommand.ml4 @@ -871,7 +871,7 @@ let print_object lobj id (sp,kn) dn fv env = let (_,(_,varentry,_)) = Declare.out_variable lobj in begin match varentry with - Declare.SectionLocalDef (body,optt) -> + Declare.SectionLocalDef (body,optt,_) -> let typ = match optt with | None -> Retyping.get_type_of env Evd.empty body | Some t -> t in |