diff options
author | 2017-10-06 12:46:26 +0200 | |
---|---|---|
committer | 2017-10-06 12:46:26 +0200 | |
commit | 6cb1829829de5edfe733b901c38a8b39ba03ef56 (patch) | |
tree | 2a9693af05a55faa3a2275936db445478732bce6 /plugins/extraction/table.ml | |
parent | 3de25a6f91ec3cc5c9173ab7c93caee87cae578f (diff) | |
parent | d459c4b237e764740fdcfba71ac92a79e426f1de (diff) |
Merge PR #1118: Extraction : minor support stuff for the new Extraction Compute plugin
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 ()]. |