Skip to content

Commit 6633e03

Browse files
authored
Merge pull request #874 from yoshihiro503/yoshihiro503@glob-info-for-notations
fix: missing glob info for notations
2 parents 059edea + ff1187b commit 6633e03

File tree

1 file changed

+2
-0
lines changed

1 file changed

+2
-0
lines changed

src/rocq_elpi_builtins.ml

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -3387,6 +3387,8 @@ Supported attributes:
33873387
let pat, _ = Notation_ops.notation_constr_of_glob_constr nenv gbody in
33883388
let warns = warns_of_options options in
33893389
Abbreviation.declare_abbreviation ~local ~onlyparsing warns name (vars,pat);
3390+
let loc = to_coq_loc @@ State.get Rocq_elpi_builtins_synterp.invocation_site_loc state in
3391+
Dumpglob.dump_definition (CAst.make ~loc name) false "abbrev";
33903392
let qname = Libnames.qualid_of_string (Id.to_string name) in
33913393
match Nametab.locate_extended qname with
33923394
| Globnames.TrueGlobal _ -> assert false

0 commit comments

Comments
 (0)