From 0bfa187edddb0de9bb75c55e1b3d0f08830c7ac8 Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Wed, 5 Jun 2013 13:26:51 +0000
Subject: Replacing lists by maps in matching interpretation.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16561 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/tacred.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'pretyping/tacred.ml')

diff --git a/pretyping/tacred.ml b/pretyping/tacred.ml
index 31cf52eace..a8cdfd8695 100644
--- a/pretyping/tacred.ml
+++ b/pretyping/tacred.ml
@@ -897,7 +897,7 @@ let contextually byhead (occs,c) f env sigma t =
 	else not (List.mem !pos locs) in
       incr pos;
       if ok then
-        let subst' = List.map (on_snd (traverse envc)) subst in
+        let subst' = Id.Map.map (traverse envc) subst in
 	f subst' env sigma t
       else if byhead then
 	(* find other occurrences of c in t; TODO: ensure left-to-right *)
-- 
cgit v1.2.3