diff options
| author | Maxime Dénès | 2020-06-16 17:09:40 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2020-07-03 13:13:02 +0200 |
| commit | 53e19f76624b7a18792af799e970e9478f8e90a9 (patch) | |
| tree | b852fd1e116ff72748210a11bc95298453ac2e4d /interp/dumpglob.ml | |
| parent | 33581635d3ad525e1d5c2fb2587be345a7e77009 (diff) | |
Fix #11121: Simultaneous definition of term and notation in custom grammar
Diffstat (limited to 'interp/dumpglob.ml')
| -rw-r--r-- | interp/dumpglob.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/dumpglob.ml b/interp/dumpglob.ml index 57ec708b07..d57c05788d 100644 --- a/interp/dumpglob.ml +++ b/interp/dumpglob.ml @@ -207,7 +207,7 @@ let cook_notation (from,df) sc = done; let df = Bytes.sub_string ntn 0 !j in let df_sc = match sc with Some sc -> ":" ^ sc ^ ":" ^ df | _ -> "::" ^ df in - let from_df_sc = match from with Constrexpr.InCustomEntryLevel (from,_) -> ":" ^ from ^ df_sc | Constrexpr.InConstrEntrySomeLevel -> ":" ^ df_sc in + let from_df_sc = match from with Constrexpr.InCustomEntry from -> ":" ^ from ^ df_sc | Constrexpr.InConstrEntry -> ":" ^ df_sc in from_df_sc let dump_notation_location posl df (((path,secpath),_),sc) = |