diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-06-17 14:33:02 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-06-17 14:33:02 +0200 |
commit | f08153148b3ca0de01e5d7c68d5b318a2cae6d0d (patch) | |
tree | 24acd5924ede6850a8e7a83622ce2edac83adf4e /pretyping | |
parent | a59d1bc087a8698a774a46ba0138d009ee40a7ea (diff) | |
parent | abd89e37c2882e0f92a3e119b4eb7ee44cc8a503 (diff) |
Merge PR #7824: Fixes #7811 (uncaught Not_found in notation printer related to "match").
Diffstat (limited to 'pretyping')
-rw-r--r-- | pretyping/glob_ops.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pretyping/glob_ops.ml b/pretyping/glob_ops.ml index 8ecec30cf..11cfd2040 100644 --- a/pretyping/glob_ops.ml +++ b/pretyping/glob_ops.ml @@ -414,8 +414,10 @@ let loc_of_glob_constr c = c.CAst.loc (**********************************************************************) (* Alpha-renaming *) +exception UnsoundRenaming + let collide_id l id = List.exists (fun (id',id'') -> Id.equal id id' || Id.equal id id'') l -let test_id l id = if collide_id l id then raise Not_found +let test_id l id = if collide_id l id then raise UnsoundRenaming let test_na l na = Name.iter (test_id l) na let update_subst na l = @@ -429,8 +431,6 @@ let update_subst na l = else na,l) na (na,l) -exception UnsoundRenaming - let rename_var l id = try let id' = Id.List.assoc id l in |