From 78d1c75322684eaa7e0ef753ee56d9c6140ec830 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Thu, 13 Dec 2001 09:03:13 +0000
Subject: compat ocaml 3.03

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2291 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/inductive.ml | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'kernel/inductive.ml')

diff --git a/kernel/inductive.ml b/kernel/inductive.ml
index 218edd3a46..395ec95de2 100644
--- a/kernel/inductive.ml
+++ b/kernel/inductive.ml
@@ -97,7 +97,8 @@ let instantiate_params t args sign =
           | (Some b,_,LetIn(_,_,_,t))    -> (largs, (substl subs b)::subs, t)
 	  | _                            -> fail())
       sign
-      (args,[],t) in
+      ~init:(args,[],t) 
+  in
   if rem_args <> [] then fail();
   type_app (substl subs) ty
 
@@ -190,8 +191,9 @@ let local_rels ctxt =
         match copt with
             None   -> (mkRel n :: rels, n+1)
           | Some _ -> (rels, n+1))
-      ([],1)
-      ctxt in
+      ~init:([],1)
+      ctxt 
+  in
   rels
 
 let build_dependent_constructor cs =
-- 
cgit v1.2.3