1 files changed, 5 insertions, 0 deletions
diff --git a/lib/options.ml b/lib/options.ml
index 90517561f..7527c82f9 100644
--- a/lib/options.ml
+++ b/lib/options.ml
@@ -53,6 +53,11 @@ let silently f x =
 let if_silent f x = if !silent then f x
 let if_verbose f x = if not !silent then f x
 
+let with_option o f x =
+  let old = !o in o:=true;
+  try let r = f x in o := old; r
+  with e -> o := old; raise e
+
 (* The number of printed hypothesis in a goal *)
 
 let print_hyps_limit = ref (None : int option)