diff options
| author | barras | 2004-03-12 16:16:01 +0000 |
|---|---|---|
| committer | barras | 2004-03-12 16:16:01 +0000 |
| commit | 9a387363e4d9da05c65adfe1ef5d877d4493e6fd (patch) | |
| tree | d0ddc066204d4ad443d41a2e265b97e02967f70d | |
| parent | b993a69b9dc750d3195d3288403823492e511095 (diff) | |
bug des points fixes (pb avec la contrib Matrices)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5467 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | interp/constrintern.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index 0f9b655cc0..46f8ff5b24 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -821,11 +821,11 @@ let internalise sigma env allow_soapp lvar c = and intern_local_binder ((ids,ts,sc as env),bl) = function LocalRawAssum(nal,ty) -> - let ids' = List.fold_left - (fun ids (_,na) -> name_fold Idset.add na ids) ids nal in - ((ids',ts,sc), - List.map (fun (_,na) -> - (na,None,intern_type env ty)) nal @bl) + let ty = intern_type env ty in + List.fold_left + (fun ((ids,ts,sc),bl) (_,na) -> + ((name_fold Idset.add na ids,ts,sc), (na,None,ty)::bl)) + (env,bl) nal | LocalRawDef((loc,na),def) -> ((name_fold Idset.add na ids,ts,sc), (na,Some(intern env def),RHole(loc,BinderType na))::bl) |