From 3636d52354226848ef89fbe4539cfa4e5daaa170 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 15 Mar 2007 16:36:15 +0000
Subject: Suppression argument pattern_source du case_info (code jamais
 utilisé)

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

(limited to 'contrib/cc')

diff --git a/contrib/cc/cctac.ml b/contrib/cc/cctac.ml
index ef52bd1cde..815bda4aa9 100644
--- a/contrib/cc/cctac.ml
+++ b/contrib/cc/cctac.ml
@@ -203,7 +203,7 @@ let build_projection intype outtype (cstr:constructor) special default gls=
   let branches=Array.init lp branch in
   let casee=mkRel 1 in
   let pred=mkLambda(Anonymous,intype,outtype) in
-  let case_info=make_default_case_info (pf_env gls) RegularStyle ind in
+  let case_info=make_case_info (pf_env gls) ind RegularStyle in
   let body= mkCase(case_info, pred, casee, branches) in
   let id=pf_get_new_id (id_of_string "t") gls in     
     mkLambda(Name id,intype,body)
-- 
cgit v1.2.3