src/Pure/pattern.ML
changeset 32738 15bb09ca0378
parent 32035 8e77b6a250d5
child 33037 b22e44496dc2
     1.1 --- a/src/Pure/pattern.ML	Tue Sep 29 11:48:32 2009 +0200
     1.2 +++ b/src/Pure/pattern.ML	Tue Sep 29 11:49:22 2009 +0200
     1.3 @@ -14,7 +14,7 @@
     1.4  
     1.5  signature PATTERN =
     1.6  sig
     1.7 -  val trace_unify_fail: bool ref
     1.8 +  val trace_unify_fail: bool Unsynchronized.ref
     1.9    val aeconv: term * term -> bool
    1.10    val eta_long: typ list -> term -> term
    1.11    val match: theory -> term * term -> Type.tyenv * Envir.tenv -> Type.tyenv * Envir.tenv
    1.12 @@ -40,7 +40,7 @@
    1.13  exception Unif;
    1.14  exception Pattern;
    1.15  
    1.16 -val trace_unify_fail = ref false;
    1.17 +val trace_unify_fail = Unsynchronized.ref false;
    1.18  
    1.19  fun string_of_term thy env binders t =
    1.20    Syntax.string_of_term_global thy