--- a/src/Pure/library.ML Mon Dec 03 21:01:11 2001 +0100
+++ b/src/Pure/library.ML Mon Dec 03 21:01:37 2001 +0100
@@ -278,7 +278,6 @@
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 transitive_closure: (string * string list) list -> (string * string list) list
- val init_gensym: unit -> unit (* FIXME !!??! *)
val gensym: string -> string
val bump_int_list: string list -> string list
val bump_list: string list * string -> string list
@@ -1349,9 +1348,8 @@
in
-fun init_gensym() = (seedr := 0); (* FIXME !!??! *)
+fun gensym pre = pre ^ (#1(newid (!seedr), inc seedr));
-fun gensym pre = pre ^ (#1(newid (!seedr), inc seedr));
end;