diff options
| author | Hugo Herbelin | 2019-09-04 17:13:57 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2019-09-04 17:13:57 +0200 |
| commit | a37b34723778679203af09f5f63476ea2204ceb0 (patch) | |
| tree | 053ebcc5dd2983dfc565c8dac591b894a5dd3d6e /interp/syntax_def.ml | |
| parent | 94aff06e49681ab5b88865c9c2ed2ce459c170f4 (diff) | |
| parent | 47eacb1be09e6c4e634d9555fe2938eff2622fe1 (diff) | |
Merge PR #10729: Locations for notation deprecation warnings
Reviewed-by: herbelin
Diffstat (limited to 'interp/syntax_def.ml')
| -rw-r--r-- | interp/syntax_def.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/interp/syntax_def.ml b/interp/syntax_def.ml index 302bb6ece2..9dded8656c 100644 --- a/interp/syntax_def.ml +++ b/interp/syntax_def.ml @@ -100,7 +100,7 @@ let warn_deprecated_syntactic_definition = let search_syntactic_definition ?loc kn = let syndef = KNmap.find kn !syntax_table in let def = out_pat syndef.syndef_pattern in - Option.iter (fun d -> warn_deprecated_syntactic_definition (kn,d)) syndef.syndef_deprecation; + Option.iter (fun d -> warn_deprecated_syntactic_definition ?loc (kn,d)) syndef.syndef_deprecation; def let search_filtered_syntactic_definition ?loc filter kn = @@ -108,5 +108,5 @@ let search_filtered_syntactic_definition ?loc filter kn = let def = out_pat syndef.syndef_pattern in let res = filter def in if Option.has_some res then - Option.iter (fun d -> warn_deprecated_syntactic_definition (kn,d)) syndef.syndef_deprecation; + Option.iter (fun d -> warn_deprecated_syntactic_definition ?loc (kn,d)) syndef.syndef_deprecation; res |