diff options
| -rw-r--r-- | Makefile.build | 2 | ||||
| -rw-r--r-- | plugins/extraction/table.ml | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/Makefile.build b/Makefile.build index d65aa89154..d75051b20c 100644 --- a/Makefile.build +++ b/Makefile.build @@ -443,6 +443,8 @@ cc: $(CCVO) $(CCCMA) subtac: $(SUBTACCMA) rtauto: $(RTAUTOVO) $(RTAUTOCMA) +pluginsopt: $(PLUGINSOPT) + ########################################################################### # rules to make theories, plugins and states ########################################################################### diff --git a/plugins/extraction/table.ml b/plugins/extraction/table.ml index c1b488f350..c22bb17eae 100644 --- a/plugins/extraction/table.ml +++ b/plugins/extraction/table.ml @@ -482,6 +482,8 @@ let inline_extraction = cache_function = (fun (_,(b,l)) -> add_inline_entries b l); load_function = (fun _ (_,(b,l)) -> add_inline_entries b l); classify_function = (fun o -> Substitute o); + discharge_function = + (fun (_,(b,l)) -> Some (b, List.map pop_global_reference l)); subst_function = (fun (s,(b,l)) -> (b,(List.map (fun x -> fst (subst_global s x)) l))) } @@ -494,7 +496,6 @@ let _ = declare_summary "Extraction Inline" (* Grammar entries. *) let extraction_inline b l = - check_inside_section (); let refs = List.map Nametab.global l in List.iter (fun r -> match r with |