diff options
| author | Maxime Dénès | 2017-11-20 10:58:36 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2017-11-20 10:58:36 +0100 |
| commit | c9f45bd9aa75cbcfcee7089b722eb5fac1832472 (patch) | |
| tree | 7acba7a518e81be25454b6ac756fb3b4dc05f1d3 /dev | |
| parent | 921ee76930bf84b9b3e413cc9c8f5f519c0b06ad (diff) | |
| parent | dc664b3b0c6f6f5eeba0c1092efc3f4537cdf657 (diff) | |
Merge PR #6183: [plugins] Prepare plugin API for functional handling of state.
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/top_printers.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml index b4c8ae33ca..5b09436c26 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -508,7 +508,7 @@ let _ = (function [c] when genarg_tag c = unquote (topwit wit_constr) && true -> let c = out_gen (rawwit wit_constr) c in - (fun _ -> in_current_context constr_display c) + (fun _ st -> in_current_context constr_display c; st) | _ -> failwith "Vernac extension: cannot occur") with e -> pp (CErrors.print e) @@ -524,7 +524,7 @@ let _ = (function [c] when genarg_tag c = unquote (topwit wit_constr) && true -> let c = out_gen (rawwit wit_constr) c in - (fun _ -> in_current_context print_pure_constr c) + (fun _ st -> in_current_context print_pure_constr c; st) | _ -> failwith "Vernac extension: cannot occur") with e -> pp (CErrors.print e) |