diff options
| author | Pierre-Marie Pédrot | 2018-09-13 15:54:08 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-10-02 09:27:47 +0200 |
| commit | bc240341d9f0f7466c82e8ee9f3f325cda6fc3bf (patch) | |
| tree | 458d01bb58cbced90ce769eeb5a6eab15cbf6c3f /coqpp | |
| parent | 1407a1caabd5891552043e9f62e5f2058df07034 (diff) | |
Make the coqpp VERNAC EXTEND behave as the non-FUNCTIONAL camlp5 one.
Diffstat (limited to 'coqpp')
| -rw-r--r-- | coqpp/coqpp_main.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/coqpp/coqpp_main.ml b/coqpp/coqpp_main.ml index 602620968d..89b4d340b2 100644 --- a/coqpp/coqpp_main.ml +++ b/coqpp/coqpp_main.ml @@ -306,7 +306,7 @@ let print_rule_classifier fmt r = match r.vernac_class with | Some f -> fprintf fmt "Some @[(fun %a-> %s)@]" print_binders r.vernac_toks f.code let print_body fmt r = - fprintf fmt "@[(fun %a~atts@ ~st@ -> %s)@]" + fprintf fmt "@[(fun %a~atts@ ~st@ -> let () = %s in st)@]" print_binders r.vernac_toks r.vernac_body.code let rec print_sig fmt = function |