From c06a98ffdba666203b90658ba0d0027ad7241617 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 1 Apr 2003 14:03:26 +0000
Subject: Déplacement with_option dans Options

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3835 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 interp/constrextern.ml | 17 ++++++-----------
 1 file changed, 6 insertions(+), 11 deletions(-)

(limited to 'interp')

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 *)
-- 
cgit v1.2.3