--- a/src/Pure/ProofGeneral/preferences.ML Wed Sep 22 17:46:59 2010 +0200
+++ b/src/Pure/ProofGeneral/preferences.ML Wed Sep 22 18:21:48 2010 +0200
@@ -78,7 +78,7 @@
(* preferences of Pure *)
-val proof_pref = setmp_noncritical Proofterm.proofs 1 (fn () =>
+val proof_pref = Unsynchronized.setmp Proofterm.proofs 1 (fn () =>
let
fun get () = PgipTypes.bool_to_pgstring (! Proofterm.proofs >= 2);
fun set s = Proofterm.proofs := (if PgipTypes.read_pgipbool s then 2 else 1);
@@ -164,7 +164,7 @@
thm_deps_pref];
val proof_preferences =
- [setmp_noncritical quick_and_dirty true (fn () =>
+ [Unsynchronized.setmp quick_and_dirty true (fn () =>
bool_pref quick_and_dirty
"quick-and-dirty"
"Take a few short cuts") (),