From 4dc8746cac24ba72a1ec4dfa764a1ae88ce79277 Mon Sep 17 00:00:00 2001 From: Enrico Tassi Date: Tue, 16 Sep 2014 16:57:59 +0200 Subject: Undo prints only if coqtop || emacs --- lib/flags.ml | 2 ++ lib/flags.mli | 2 ++ 2 files changed, 4 insertions(+) (limited to 'lib') diff --git a/lib/flags.ml b/lib/flags.ml index 2bc217fa3..0356863ab 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -50,6 +50,8 @@ let compilation_mode = ref BuildVo type async_proofs = APoff | APonLazy | APon let async_proofs_mode = ref APoff +type cache = Force +let async_proofs_cache = ref None let async_proofs_n_workers = ref 1 let async_proofs_n_tacworkers = ref 2 let async_proofs_private_flags = ref None diff --git a/lib/flags.mli b/lib/flags.mli index 98f0acb95..f94d80ffc 100644 --- a/lib/flags.mli +++ b/lib/flags.mli @@ -17,6 +17,8 @@ val compilation_mode : compilation_mode ref type async_proofs = APoff | APonLazy | APon val async_proofs_mode : async_proofs ref +type cache = Force +val async_proofs_cache : cache option ref val async_proofs_n_workers : int ref val async_proofs_n_tacworkers : int ref val async_proofs_private_flags : string option ref -- cgit v1.2.3