--- a/src/Pure/Thy/thy_output.ML Thu May 16 20:33:01 2013 +0200
+++ b/src/Pure/Thy/thy_output.ML Thu May 16 20:50:01 2013 +0200
@@ -6,11 +6,6 @@
signature THY_OUTPUT =
sig
- val display_default: bool Unsynchronized.ref
- val quotes_default: bool Unsynchronized.ref
- val indent_default: int Unsynchronized.ref
- val source_default: bool Unsynchronized.ref
- val break_default: bool Unsynchronized.ref
val display: bool Config.T
val quotes: bool Config.T
val indent: int Config.T
@@ -50,17 +45,11 @@
(** global options **)
-val display_default = Unsynchronized.ref false;
-val quotes_default = Unsynchronized.ref false;
-val indent_default = Unsynchronized.ref 0;
-val source_default = Unsynchronized.ref false;
-val break_default = Unsynchronized.ref false;
-
-val display = Attrib.setup_config_bool (Binding.name "thy_output_display") (fn _ => ! display_default);
-val quotes = Attrib.setup_config_bool (Binding.name "thy_output_quotes") (fn _ => ! quotes_default);
-val indent = Attrib.setup_config_int (Binding.name "thy_output_indent") (fn _ => ! indent_default);
-val source = Attrib.setup_config_bool (Binding.name "thy_output_source") (fn _ => ! source_default);
-val break = Attrib.setup_config_bool (Binding.name "thy_output_break") (fn _ => ! break_default);
+val display = Attrib.setup_option_bool "thy_output_display";
+val break = Attrib.setup_option_bool "thy_output_break";
+val quotes = Attrib.setup_option_bool "thy_output_quotes";
+val indent = Attrib.setup_option_int "thy_output_indent";
+val source = Attrib.setup_option_bool "thy_output_source";
structure Wrappers = Proof_Data
--- a/src/Pure/Tools/build.ML Thu May 16 20:33:01 2013 +0200
+++ b/src/Pure/Tools/build.ML Thu May 16 20:50:01 2013 +0200
@@ -93,11 +93,6 @@
|> no_document options ? Present.no_document
|> Unsynchronized.setmp quick_and_dirty (Options.bool options "quick_and_dirty")
|> Unsynchronized.setmp Goal.skip_proofs (Options.bool options "skip_proofs")
- |> Unsynchronized.setmp Thy_Output.display_default (Options.bool options "thy_output_display")
- |> Unsynchronized.setmp Thy_Output.quotes_default (Options.bool options "thy_output_quotes")
- |> Unsynchronized.setmp Thy_Output.indent_default (Options.int options "thy_output_indent")
- |> Unsynchronized.setmp Thy_Output.source_default (Options.bool options "thy_output_source")
- |> Unsynchronized.setmp Thy_Output.break_default (Options.bool options "thy_output_break")
|> Unsynchronized.setmp Pretty.margin_default (Options.int options "pretty_margin")
|> Unsynchronized.setmp Toplevel.timing (Options.bool options "timing");