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 /printing | |
| 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 'printing')
| -rw-r--r-- | printing/ppconstr.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/printing/ppconstr.ml b/printing/ppconstr.ml index 39f91b795a..b389ca7902 100644 --- a/printing/ppconstr.ml +++ b/printing/ppconstr.ml @@ -309,7 +309,7 @@ let split_lambda = function let rename na na' t c = match (na,na') with | (_,Name id), (_,Name id') -> - (na',t,Topconstr.replace_vars_constr_expr [id,id'] c) + (na',t,Topconstr.replace_vars_constr_expr (Id.Map.singleton id id') c) | (_,Name id), (_,Anonymous) -> (na,t,c) | _ -> (na',t,c) |