# HG changeset patch
# User wenzelm
# Date 1289569888 -3600
# Node ID 0bc83ae22789ef4ea64e3027712f9d30a307f545
# Parent  76894f9754400af31a17c1fc2e15f5242cd6cae7
tuned signatures;

diff -r 76894f975440 -r 0bc83ae22789 src/Pure/General/symbol.ML
--- a/src/Pure/General/symbol.ML	Fri Nov 12 14:06:37 2010 +0100
+++ b/src/Pure/General/symbol.ML	Fri Nov 12 14:51:28 2010 +0100
@@ -6,7 +6,7 @@
 
 signature SYMBOL =
 sig
-  type symbol
+  type symbol = string
   val SOH: symbol
   val STX: symbol
   val ENQ: symbol
diff -r 76894f975440 -r 0bc83ae22789 src/Pure/library.ML
--- a/src/Pure/library.ML	Fri Nov 12 14:06:37 2010 +0100
+++ b/src/Pure/library.ML	Fri Nov 12 14:51:28 2010 +0100
@@ -210,12 +210,12 @@
   val partition_eq: ('a * 'a -> bool) -> 'a list -> 'a list list
   val partition_list: (int -> 'a -> bool) -> int -> int -> 'a list -> 'a list list
   val gensym: string -> string
-  type stamp
+  type stamp = unit Unsynchronized.ref
   val stamp: unit -> stamp
-  type serial
+  type serial = int
   val serial: unit -> serial
   val serial_string: unit -> string
-  structure Object: sig type T end
+  structure Object: sig type T = exn end
 end;
 
 signature LIBRARY =