diff options
| author | coqbot-app[bot] | 2021-02-11 23:32:01 +0000 |
|---|---|---|
| committer | GitHub | 2021-02-11 23:32:01 +0000 |
| commit | c0e0e637c61e075f43b73d1ddd8eaa9d79b27561 (patch) | |
| tree | ce95c0dffc03c16e41590a2d435d5e949e3c9654 /dev | |
| parent | b1532790555b122b5bb3091405595b4b5586483e (diff) | |
| parent | 0a88e8ffeec97768096a32ad1cdd886103aaf30a (diff) | |
Merge PR #13844: [vernac] pass the loc of the whole command to the interp function
Reviewed-by: ejgallego
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/ci/user-overlays/13844-gares-command-loc.sh | 1 | ||||
| -rw-r--r-- | dev/top_printers.ml | 4 |
2 files changed, 3 insertions, 2 deletions
diff --git a/dev/ci/user-overlays/13844-gares-command-loc.sh b/dev/ci/user-overlays/13844-gares-command-loc.sh new file mode 100644 index 0000000000..d9a1736532 --- /dev/null +++ b/dev/ci/user-overlays/13844-gares-command-loc.sh @@ -0,0 +1 @@ +overlay elpi https://github.com/LPCIC/coq-elpi command-loc 13844 diff --git a/dev/top_printers.ml b/dev/top_printers.ml index f3d6239c6f..f8fd8b3d5b 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -576,7 +576,7 @@ let _ = let open Vernacextend in let ty_constr = Extend.TUentry (get_arg_tag Stdarg.wit_constr) in let cmd_sig = TyTerminal("PrintConstr", TyNonTerminal(ty_constr, TyNil)) in - let cmd_fn c ~atts = VtDefault (fun () -> in_current_context econstr_display c) in + let cmd_fn c ?loc:_ ~atts = VtDefault (fun () -> in_current_context econstr_display c) in let cmd_class _ = VtQuery in let cmd : ty_ml = TyML (false, cmd_sig, cmd_fn, Some cmd_class) in vernac_extend ~command:"PrintConstr" [cmd] @@ -585,7 +585,7 @@ let _ = let open Vernacextend in let ty_constr = Extend.TUentry (get_arg_tag Stdarg.wit_constr) in let cmd_sig = TyTerminal("PrintPureConstr", TyNonTerminal(ty_constr, TyNil)) in - let cmd_fn c ~atts = VtDefault (fun () -> in_current_context print_pure_econstr c) in + let cmd_fn c ?loc:_ ~atts = VtDefault (fun () -> in_current_context print_pure_econstr c) in let cmd_class _ = VtQuery in let cmd : ty_ml = TyML (false, cmd_sig, cmd_fn, Some cmd_class) in vernac_extend ~command:"PrintPureConstr" [cmd] |