diff options
| author | Hugo Herbelin | 2018-06-02 21:04:27 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2018-06-02 21:18:53 +0200 |
| commit | fd33e3875b872f8b83c350427a9809e68d7fe009 (patch) | |
| tree | 2744fbef32912950cf4dd698820296e477512584 /interp/syntax_def.ml | |
| parent | 04756f75bf54b1ccda8c180c62b14c5eaaaabb67 (diff) | |
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 |