Déplacement with_option dans Options

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3835 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 6 insertions, 11 deletions

diff --git a/interp/constrextern.ml b/interp/constrextern.ml
index cd0d99581e..cc5e79a126 100644
--- a/interp/constrextern.ml
+++ b/interp/constrextern.ml
@@ -60,17 +60,12 @@ let print_no_symbol = ref false
 
 let print_meta_as_hole = ref false
 
-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
-
-let with_arguments f = with_option print_arguments f
-let with_implicits f = with_option print_implicits f
-let with_coercions f = with_option print_coercions f
-let with_universes f = with_option print_universes f
-let without_symbols f = with_option print_no_symbol f
-let with_meta_as_hole f = with_option print_meta_as_hole f
+let with_arguments f = Options.with_option print_arguments f
+let with_implicits f = Options.with_option print_implicits f
+let with_coercions f = Options.with_option print_coercions f
+let with_universes f = Options.with_option print_universes f
+let without_symbols f = Options.with_option print_no_symbol f
+let with_meta_as_hole f = Options.with_option print_meta_as_hole f
 
 (**********************************************************************)
 (* Various externalisation functions *)