# HG changeset patch
# User wenzelm
# Date 925218798 -7200
# Node ID ed8c5f738ab3ef4d145cc3ab4984dec68650ba1c
# Parent  f7a7ac2b9926c648d3470b9e5da1b6e870173553
verbose flag;

diff -r f7a7ac2b9926 -r ed8c5f738ab3 src/Pure/Isar/proof_context.ML
--- a/src/Pure/Isar/proof_context.ML	Tue Apr 27 15:12:34 1999 +0200
+++ b/src/Pure/Isar/proof_context.ML	Tue Apr 27 15:13:18 1999 +0200
@@ -9,15 +9,13 @@
   - smash_unifiers: ever invents new vars (???);
 *)
 
-(* FIXME tmp *)
-val proof_debug = ref false;
-
 signature PROOF_CONTEXT =
 sig
   type context
   exception CONTEXT of string * context
   val theory_of: context -> theory
   val sign_of: context -> Sign.sg
+  val verbose: bool ref
   val print_binds: context -> unit
   val print_thms: context -> unit
   val print_context: context -> unit
@@ -108,8 +106,8 @@
 
 (** print context information **)
 
-(* FIXME tmp*)
-fun debug f x = if ! proof_debug then f x else ();
+val verbose = ref false;
+fun verb f x = if ! verbose then f x else ();
 
 fun print_items prt name items =
   let
@@ -170,15 +168,15 @@
     val prt_defT = prt_atom prt_var prt_typ;
     val prt_defS = prt_atom prt_varT prt_sort;
   in
-    debug Pretty.writeln pretty_thy;
+    verb Pretty.writeln pretty_thy;
     Pretty.writeln (Pretty.big_list "Fixed variables:" (map prt_fix (rev fixes)));
     print_items (prt_term o #prop o Thm.rep_thm) "Assumptions:" assumes;
-    debug print_binds ctxt;
-    debug print_thms ctxt;
-    debug Pretty.writeln (Pretty.big_list "Type constraints:" (map prt_defT (Vartab.dest types)));
-    debug Pretty.writeln (Pretty.big_list "Default sorts:" (map prt_defS (Vartab.dest sorts)));
-    debug writeln ("Maxidx: " ^ string_of_int maxidx);
-    debug Pretty.writeln (Pretty.strs ("Used type variable names:" :: used))
+    verb print_binds ctxt;
+    verb print_thms ctxt;
+    verb Pretty.writeln (Pretty.big_list "Type constraints:" (map prt_defT (Vartab.dest types)));
+    verb Pretty.writeln (Pretty.big_list "Default sorts:" (map prt_defS (Vartab.dest sorts)));
+    verb writeln ("Maxidx: " ^ string_of_int maxidx);
+    verb Pretty.writeln (Pretty.strs ("Used type variable names:" :: used))
   end;