From 05f7dc09dea7f8ba949aeb8108f041a882fa4cf8 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 9 Nov 2000 16:37:10 +0000
Subject: Renommage canonique SectionLocalDecl -> SectionLocalAssum

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@837 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/xml/xmlcommand.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'contrib/xml/xmlcommand.ml')

diff --git a/contrib/xml/xmlcommand.ml b/contrib/xml/xmlcommand.ml
index a321ce1ab1..ec9c3b5d2e 100644
--- a/contrib/xml/xmlcommand.ml
+++ b/contrib/xml/xmlcommand.ml
@@ -660,7 +660,7 @@ let print_object lobj id sp dn fv =
          let typ =
           match varentry with
              Declare.SectionLocalDef _ -> assert false
-           | Declare.SectionLocalDecl typ -> typ
+           | Declare.SectionLocalAssum typ -> typ
          in
           add_to_pvars (N.string_of_id id) ;
           print_variable id (T.body_of_type typ)
-- 
cgit v1.2.3