diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-11-29 23:39:13 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-11-29 23:39:13 +0000 |
| commit | eb724a33e78488ab7c0f5970df4386860f922963 (patch) | |
| tree | f3e82d587566acca40af8ca02f9696c9d7c0d6d1 /contrib/extraction/mlutil.ml | |
| parent | 3da96601446a2bb5a3b9a469ab13306947d4a933 (diff) | |
2 bugs: 1) projections pas renommées 2) mutual fixpoints a l'envers
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3345 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/extraction/mlutil.ml')
| -rw-r--r-- | contrib/extraction/mlutil.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/extraction/mlutil.ml b/contrib/extraction/mlutil.ml index 2a80227f1..e197515f0 100644 --- a/contrib/extraction/mlutil.ml +++ b/contrib/extraction/mlutil.ml @@ -1199,7 +1199,7 @@ and optimize_Dfix prm (r,t,typ) b l = with Not_found -> Tunknown) v in let c = - let gv = Array.map (fun r -> MLglob r) v in + let gv = Array.init len (fun i -> MLglob v.(len-i-1)) in Array.map (gen_subst gv (-len)) c in Dfix (v, c, typs) :: (optimize prm l) else optimize prm l |