diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-06-05 13:26:51 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-06-05 13:26:51 +0000 |
| commit | 0bfa187edddb0de9bb75c55e1b3d0f08830c7ac8 (patch) | |
| tree | 0afc6a72e635ebba2fb851a789ef88a333006d6d /pretyping/patternops.ml | |
| parent | 76cb7a13d714639a8f4d448416dddda86e86f9fb (diff) | |
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
Diffstat (limited to 'pretyping/patternops.ml')
| -rw-r--r-- | pretyping/patternops.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/patternops.ml b/pretyping/patternops.ml index 5e4e5eb97..d695e8a45 100644 --- a/pretyping/patternops.ml +++ b/pretyping/patternops.ml @@ -203,7 +203,7 @@ let instantiate_pattern sigma lvar c = let rec aux vars = function | PVar id as x -> (try - let ctx,c = List.assoc id lvar in + let ctx,c = Id.Map.find id lvar in try let inst = List.map (fun id -> mkRel (List.index (Name id) vars)) ctx in @@ -213,7 +213,7 @@ let instantiate_pattern sigma lvar c = let vars = List.map_filter (function Name id -> Some id | _ -> None) vars in error_instantiate_pattern id (List.subtract ctx vars) - with Not_found (* List.assoc failed *) -> + with Not_found (* Map.find failed *) -> x) | (PFix _ | PCoFix _) -> error ("Non instantiable pattern.") | c -> |