diff options
| author |  Pierre Letouzey <pierre.letouzey@inria.fr> | 2014-02-19 14:51:10 +0100 |
|---|---|---|
| committer | Pierre Letouzey <pierre.letouzey@inria.fr> | 2017-10-04 16:24:47 +0200 |
| commit | d459c4b237e764740fdcfba71ac92a79e426f1de (patch) | |
| tree | b3b8171c7bd8b913370a6bd253572e747cd4dcc8 /plugins/extraction/table.ml | |
| parent | 2b9a34e2ffb2bf066b3b0f8452e35622519cae1c (diff) | |
Extraction : minor support stuff for the new Extraction Compute plugin
See https://github.com/letouzey/extraction-compute for more details
Diffstat (limited to 'plugins/extraction/table.ml')
| -rw-r--r-- | plugins/extraction/table.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/plugins/extraction/table.ml b/plugins/extraction/table.ml index 30e3b520f..995d5fd19 100644 --- a/plugins/extraction/table.ml +++ b/plugins/extraction/table.ml @@ -250,6 +250,11 @@ let modular () = !modular_ref let set_library b = library_ref := b let library () = !library_ref +let extrcompute = ref false + +let set_extrcompute b = extrcompute := b +let is_extrcompute () = !extrcompute + (*s Printing. *) (* The following functions work even on objects not in [Global.env ()]. |