diff options
| author |  Paul Steckler <steck@stecksoft.com> | 2017-06-09 12:30:42 -0400 |
|---|---|---|
| committer | Paul Steckler <steck@stecksoft.com> | 2017-06-09 12:30:42 -0400 |
| commit | 849bf3600fe11fea876c9aeea69fe806b0c8c5d8 (patch) | |
| tree | 6af03f32f864882392abe7dded939bed439a368f /interp/notation.ml | |
| parent | 03fee03c9bc31225d8f0c3a1cef206145490d341 (diff) | |
Fix Bug #5568, no dup notation warnings on repeated module imports
Diffstat (limited to 'interp/notation.ml')
| -rw-r--r-- | interp/notation.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/interp/notation.ml b/interp/notation.ml index 389a1c9df..ba80cf1d2 100644 --- a/interp/notation.ml +++ b/interp/notation.ml @@ -561,11 +561,12 @@ let interpretation_eq (vars1, t1) (vars2, t2) = List.equal var_attributes_eq vars1 vars2 && Notation_ops.eq_notation_constr (List.map fst vars1, List.map fst vars2) t1 t2 -let exists_notation_in_scope scopt ntn r = +let exists_notation_in_scope scopt ntn onlyprint r = let scope = match scopt with Some s -> s | None -> default_scope in try let sc = String.Map.find scope !scope_map in let n = String.Map.find ntn sc.notations in + onlyprint = n.not_onlyprinting && interpretation_eq n.not_interp r with Not_found -> false |