diff options
Diffstat (limited to 'interp/syntax_def.ml')
| -rw-r--r-- | interp/syntax_def.ml | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/interp/syntax_def.ml b/interp/syntax_def.ml index 1330a3689..b0e27f04e 100644 --- a/interp/syntax_def.ml +++ b/interp/syntax_def.ml @@ -36,10 +36,7 @@ let load_syntax_constant i ((sp,kn),(local,pat,onlyparse)) = errorlabstrm "cache_syntax_constant" (pr_id (basename sp) ++ str " already exists"); add_syntax_constant kn pat; - Nametab.push_syndef (Nametab.Until i) sp kn; - if not onlyparse then - (* Declare it to be used as long name *) - Notation.declare_uninterpretation (Notation.SynDefRule kn) pat + Nametab.push_syndef (Nametab.Until i) sp kn let open_syntax_constant i ((sp,kn),(_,pat,onlyparse)) = Nametab.push_syndef (Nametab.Exactly i) sp kn; |