diff options
| author | Théo Zimmermann | 2019-05-23 15:10:20 +0200 |
|---|---|---|
| committer | Théo Zimmermann | 2019-05-23 15:10:20 +0200 |
| commit | e7628797fc241a4d7a5c1a5675cb679db282050d (patch) | |
| tree | 8e8cc4348dfb9247713f45a7c43668ba98c708cf /plugins/extraction/table.ml | |
| parent | cf3b9eca0b3e81a7d56acded394a8b6843a4bb8d (diff) | |
| parent | 467eb67bb960c15e1335f375af29b4121ac5262b (diff) | |
Merge PR #10221: Fixing typos - Part 2 (reopening of #10218)
Diffstat (limited to 'plugins/extraction/table.ml')
| -rw-r--r-- | plugins/extraction/table.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/extraction/table.ml b/plugins/extraction/table.ml index 4e229a94b6..c2c48f9565 100644 --- a/plugins/extraction/table.ml +++ b/plugins/extraction/table.ml @@ -101,7 +101,7 @@ let labels_of_ref r = (*S The main tables: constants, inductives, records, ... *) -(* Theses tables are not registered within coq save/undo mechanism +(* These tables are not registered within coq save/undo mechanism since we reset their contents at each run of Extraction *) (* We use [constant_body] (resp. [mutual_inductive_body]) as checksum @@ -842,7 +842,7 @@ let in_customs : GlobRef.t * string list * string -> obj = ~subst:(Some (fun (s,(r,ids,str)) -> (fst (subst_global s r), ids, str))) let in_custom_matchs : GlobRef.t * string -> obj = - declare_object @@ superglobal_object_nodischarge "ML extractions custom matchs" + declare_object @@ superglobal_object_nodischarge "ML extractions custom matches" ~cache:(fun (_,(r,s)) -> add_custom_match r s) ~subst:(Some (fun (subs,(r,s)) -> (fst (subst_global subs r), s))) |