changeset 41490 | 0f1e411a1448 |
parent 37872 | d83659570337 |
child 41491 | a2ad5b824051 |
--- a/src/HOL/Matrix/Compute_Oracle/am_sml.ML Mon Jan 10 15:19:48 2011 +0100 +++ b/src/HOL/Matrix/Compute_Oracle/am_sml.ML Mon Jan 10 15:30:17 2011 +0100 @@ -486,7 +486,7 @@ val c = !guid_counter val _ = guid_counter := !guid_counter + 1 in - (LargeInt.toString (Time.toMicroseconds (Time.now ()))) ^ (string_of_int c) + (Int.toString (Time.toMicroseconds (Time.now ()))) ^ (string_of_int c) end