From 2c6c48388fa5ce84d66eb92fd9574951628a2c34 Mon Sep 17 00:00:00 2001
From: glondu
Date: Sat, 25 Dec 2010 13:25:59 +0000
Subject: Rename mkR* smart constructors (mostly in funind)

perl -pi -e 's/(mk)R(Ref|Var|Evar|PatVar|App|Lambda|Prod|LetIn|Case
s|LetTuple|If|Rec|Sort|Hole|Cast|Dynamic|Prop|Type|Fix|CoFix|Struct
Rec|WfRec|MeasureRec)/\1G\2/g' **/*.ml*

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

(limited to 'pretyping')

diff --git a/pretyping/pattern.ml b/pretyping/pattern.ml
index 50dd413c68..ae86f31428 100644
--- a/pretyping/pattern.ml
+++ b/pretyping/pattern.ml
@@ -285,8 +285,8 @@ let rec pat_of_raw metas vars = function
       PIf (pat_of_raw metas vars c,
            pat_of_raw metas vars b1,pat_of_raw metas vars b2)
   | GLetTuple (loc,nal,(_,None),b,c) ->
-      let mkRLambda c na = GLambda (loc,na,Explicit,GHole (loc,Evd.InternalHole),c) in
-      let c = List.fold_left mkRLambda c nal in
+      let mkGLambda c na = GLambda (loc,na,Explicit,GHole (loc,Evd.InternalHole),c) in
+      let c = List.fold_left mkGLambda c nal in
       PCase ((LetStyle,[|1|],None,None),PMeta None,pat_of_raw metas vars b,
              [|pat_of_raw metas vars c|])
   | GCases (loc,sty,p,[c,(na,indnames)],brs) ->
-- 
cgit v1.2.3