diff options
| author | Lysxia | 2020-04-19 09:47:13 -0400 |
|---|---|---|
| committer | Lysxia | 2020-04-19 09:47:13 -0400 |
| commit | 8d3f4fcd162c7dd23619f605d55e9a773c131e0e (patch) | |
| tree | 4cffc5a5e6268006249efe398129c582b94788f8 /interp/dumpglob.ml | |
| parent | f3af9a4c6e6813f32dfe632209e145ffbf5fed98 (diff) | |
| parent | 1b344958231af8fadfd2b45316f27e8626bae4b6 (diff) | |
Merge PR #12033: Let coqdoc be informed by coq about binding variables (incidentally fixes #7697)
Reviewed-by: Lysxia
Diffstat (limited to 'interp/dumpglob.ml')
| -rw-r--r-- | interp/dumpglob.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/interp/dumpglob.ml b/interp/dumpglob.ml index e659a5ac5c..57ec708b07 100644 --- a/interp/dumpglob.ml +++ b/interp/dumpglob.ml @@ -246,8 +246,6 @@ let add_glob_kn ?loc kn = let lib_dp = Lib.dp_of_mp (mp_of_kn kn) in add_glob_gen ?loc sp lib_dp "syndef" -let dump_binding ?loc id = () - let dump_def ?loc ty secpath id = Option.iter (fun loc -> if !glob_output = Feedback then Feedback.feedback (Feedback.GlobDef (loc, id, secpath, ty)) @@ -275,3 +273,6 @@ let dump_notation (loc,(df,_)) sc sec = Option.iter (fun loc -> let location = (Loc.make_loc (i, i+1)) in dump_def ~loc:location "not" (Names.DirPath.to_string (Lib.current_dirpath sec)) (cook_notation df sc) ) loc + +let dump_binding ?loc uid = + dump_def ?loc "binder" "<>" uid |