diff options
author | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-12-19 00:13:21 +0000 |
---|---|---|
committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-12-19 00:13:21 +0000 |
commit | 32b7a0cc9c8302febd7639d22c80554fa4ec8d88 (patch) | |
tree | c5798518db283d05d83d399802c5d50b093b417f /checker/inductive.ml | |
parent | 7a30e5bbcfb2dc3e7b7bf0cf2cd4e27eab31dcfb (diff) |
Array.create is deprecated
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16104 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'checker/inductive.ml')
-rw-r--r-- | checker/inductive.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/checker/inductive.ml b/checker/inductive.ml index 605405e35..b04c77ad8 100644 --- a/checker/inductive.ml +++ b/checker/inductive.ml @@ -525,8 +525,8 @@ let branches_specif renv c_spec ci = Array.map (fun t -> Lazy.force (spec_of_tree (lazy t))) vra - | Dead_code -> Array.create nca Dead_code - | _ -> Array.create nca Not_subterm) in + | Dead_code -> Array.make nca Dead_code + | _ -> Array.make nca Not_subterm) in List.tabulate (fun j -> lazy (Lazy.force lvra).(j)) nca) car |