--- a/src/Pure/library.ML Mon Oct 10 14:43:45 2005 +0200
+++ b/src/Pure/library.ML Mon Oct 10 15:35:29 2005 +0200
@@ -266,6 +266,7 @@
val partition_list: (int -> 'a -> bool) -> int -> int -> 'a list -> 'a list list
val gensym: string -> string
val scanwords: (string -> bool) -> string list -> string list
+ val string_of_pid: Posix.Process.pid -> string
type stamp
val stamp: unit -> stamp
type serial
@@ -1284,6 +1285,10 @@
end;
+(*Convert a process ID to a decimal string (chiefly for tracing)*)
+fun string_of_pid pid =
+ Word.fmt StringCvt.DEC (Word.fromLargeWord (Posix.Process.pidToWord pid));
+
(* lexical scanning *)