diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-04-13 21:53:40 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-06-16 17:43:28 +0200 |
commit | 630bf63968c2b80d7fc46adb5e110281ef68f2e9 (patch) | |
tree | 6d3a46376a7743b8dedaec4538451a2918acb4b3 /plugins/funind/g_indfun.ml4 | |
parent | 334c8daf6569f36290a002597d8ff6dac4fb643f (diff) |
Fixing printing of Function.
Diffstat (limited to 'plugins/funind/g_indfun.ml4')
-rw-r--r-- | plugins/funind/g_indfun.ml4 | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/plugins/funind/g_indfun.ml4 b/plugins/funind/g_indfun.ml4 index c63527dea..aa9cc4023 100644 --- a/plugins/funind/g_indfun.ml4 +++ b/plugins/funind/g_indfun.ml4 @@ -162,6 +162,11 @@ GEXTEND Gram END +let () = + let raw_printer _ _ _ (loc,body) = Ppvernac.pr_rec_definition body in + let printer _ _ _ _ = str "<Unavailable printer for rec_definition>" in + Pptactic.declare_extra_genarg_pprule wit_function_rec_definition_loc raw_printer printer printer + (* TASSI: n'importe quoi ! *) VERNAC COMMAND EXTEND Function ["Function" ne_function_rec_definition_loc_list_sep(recsl,"with")] |