diff options
| author | pboutill | 2012-12-19 00:13:21 +0000 |
|---|---|---|
| committer | pboutill | 2012-12-19 00:13:21 +0000 |
| commit | 32b7a0cc9c8302febd7639d22c80554fa4ec8d88 (patch) | |
| tree | c5798518db283d05d83d399802c5d50b093b417f /plugins/extraction | |
| 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 'plugins/extraction')
| -rw-r--r-- | plugins/extraction/modutil.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/extraction/modutil.ml b/plugins/extraction/modutil.ml index 0ed6a28558..43a08657b4 100644 --- a/plugins/extraction/modutil.ml +++ b/plugins/extraction/modutil.ml @@ -358,7 +358,7 @@ let rec depcheck_se = function (* Hack to avoid extracting unused part of a Dfix *) match d with | Dfix (rv,trms,tys) when (List.for_all is_custom refs') -> - let trms' = Array.create (Array.length rv) (MLexn "UNUSED") in + let trms' = Array.make (Array.length rv) (MLexn "UNUSED") in ((l,SEdecl (Dfix (rv,trms',tys))) :: se') | _ -> (compute_deps_decl d; t::se') end |