diff options
| author | Emilio Jesus Gallego Arias | 2018-06-03 00:35:56 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2018-06-03 00:35:56 +0200 |
| commit | 5c93d722426a552f4cf1ce93bcd3dbaf14948b6f (patch) | |
| tree | 6d5b00f3afdf78ca1a01007c2b66c0becb5f483f /interp/syntax_def.ml | |
| parent | fb406f8b33014c63139bbafd472b6afe7a4f72c9 (diff) | |
| parent | fd33e3875b872f8b83c350427a9809e68d7fe009 (diff) | |
Merge PR #7681: Fixes #7636: location missing on deprecated compatibility notations.
Diffstat (limited to 'interp/syntax_def.ml')
| -rw-r--r-- | interp/syntax_def.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/interp/syntax_def.ml b/interp/syntax_def.ml index 47faa5885c..a4f20fd739 100644 --- a/interp/syntax_def.ml +++ b/interp/syntax_def.ml @@ -96,13 +96,13 @@ let warn_compatibility_notation = CWarnings.(create ~name:"compatibility-notation" ~category:"deprecated" ~default:Enabled pr_compat_warning) -let verbose_compat kn def = function +let verbose_compat ?loc kn def = function | Some v when Flags.version_strictly_greater v -> - warn_compatibility_notation (kn, def, v) + warn_compatibility_notation ?loc (kn, def, v) | _ -> () -let search_syntactic_definition kn = +let search_syntactic_definition ?loc kn = let pat,v = KNmap.find kn !syntax_table in let def = out_pat pat in - verbose_compat kn def v; + verbose_compat ?loc kn def v; def |