From e88e0b2140bdd2d194a52bc09f8338b5667d0f92 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 14 Nov 2002 18:37:54 +0000
Subject: Réforme de l'interprétation des termes : - Le parsing se fait
 maintenant via "constr_expr" au lieu de "Coqast.t" - "Coqast.t" reste pour
 l'instant pour le pretty-printing. Un deuxième   pretty-printer dans
 ppconstr.ml est basé sur "constr_expr". - Nouveau répertoire "interp" qui
 hérite de la partie interprétation qui   se trouvait avant dans "parsing"
 (constrintern.ml remplace astterm.ml;   constrextern.ml est l'équivalent de
 termast.ml pour le nouveau   printer; topconstr.ml; contient la définition de
 "constr_expr";   modintern.ml remplace astmod.ml) - Libnames.reference tend à
 remplacer Libnames.qualid

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3235 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/term.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'kernel/term.ml')

diff --git a/kernel/term.ml b/kernel/term.ml
index cc6404631b..47bd656aea 100644
--- a/kernel/term.ml
+++ b/kernel/term.ml
@@ -22,11 +22,11 @@ type existential_key = int
 
 (* This defines Cases annotations *)
 type pattern_source = DefaultPat of int | RegularPat
-type case_style = PrintLet | PrintIf | PrintCases
+type case_style = LetStyle | IfStyle | MatchStyle | RegularStyle
 type case_printing =
   { cnames    : identifier array;
     ind_nargs : int; (* number of real args of the inductive type *)
-    style     : case_style option;
+    style     : case_style;
     source    : pattern_source array }
 type case_info =
   { ci_ind        : inductive;
-- 
cgit v1.2.3