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
---
 pretyping/inductiveops.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'pretyping/inductiveops.ml')

diff --git a/pretyping/inductiveops.ml b/pretyping/inductiveops.ml
index f14f219229..e3a536420b 100644
--- a/pretyping/inductiveops.ml
+++ b/pretyping/inductiveops.ml
@@ -91,9 +91,9 @@ let make_case_info env ind style pats_source =
     ci_npar    = mip.mind_nparams;
     ci_pp_info = print_info }
 
-let make_default_case_info env ind =
+let make_default_case_info env style ind =
   let (mib,mip) = Inductive.lookup_mind_specif env ind in
-  make_case_info env ind None
+  make_case_info env ind style
     (Array.map (fun _ -> RegularPat) mip.mind_consnames)
 
 (*s Useful functions *)
-- 
cgit v1.2.3