named some CRITICAL sections;
authorwenzelm
Fri Aug 03 22:33:03 2007 +0200 (2007-08-03)
changeset 241482d4ee876c215
parent 24147 edc90be09ac1
child 24149 1b2f1a1a03a3
named some CRITICAL sections;
src/Pure/library.ML
     1.1 --- a/src/Pure/library.ML	Fri Aug 03 20:19:41 2007 +0200
     1.2 +++ b/src/Pure/library.ML	Fri Aug 03 22:33:03 2007 +0200
     1.3 @@ -1030,7 +1030,7 @@
     1.4  val gensym_seed = ref 0;
     1.5  
     1.6  in
     1.7 -  fun gensym pre = pre ^ newid (CRITICAL (fn () => inc gensym_seed));
     1.8 +  fun gensym pre = pre ^ newid (NAMED_CRITICAL "gensym" (fn () => inc gensym_seed));
     1.9  end;
    1.10  
    1.11  
    1.12 @@ -1041,7 +1041,7 @@
    1.13  
    1.14  type serial = int;
    1.15  local val count = ref 0
    1.16 -in fun serial () = CRITICAL (fn () => inc count) end;
    1.17 +in fun serial () = NAMED_CRITICAL "serial" (fn () => inc count) end;
    1.18  
    1.19  val serial_string = string_of_int o serial;
    1.20