diff options
| author | ppedrot | 2013-09-02 22:37:19 +0000 |
|---|---|---|
| committer | ppedrot | 2013-09-02 22:37:19 +0000 |
| commit | 6338174fdaf790e52062f006c52c911bc5e58cbc (patch) | |
| tree | cc7f85be42218e3c44a751da7579b96907dae808 /plugins/decl_mode/decl_interp.ml | |
| parent | 1730ab3d5955190e959be74d6f5bca6b811637fa (diff) | |
Removing more association lists in Constrintern.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16757 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/decl_mode/decl_interp.ml')
| -rw-r--r-- | plugins/decl_mode/decl_interp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/decl_mode/decl_interp.ml b/plugins/decl_mode/decl_interp.ml index 04c8c30644..52fb935d4e 100644 --- a/plugins/decl_mode/decl_interp.ml +++ b/plugins/decl_mode/decl_interp.ml @@ -278,7 +278,7 @@ let rec bind_primary_aliases map pat = List.fold_left bind_primary_aliases map1 lpat let bind_secondary_aliases map subst = - List.fold_left (fun map (ids,idp) -> (ids,List.assoc idp map)::map) map subst + Id.Map.fold (fun ids (idp : Id.t) map -> (ids,List.assoc idp map)::map) subst map let bind_aliases patvars subst patt = let map = bind_primary_aliases [] patt in |