| changeset 43827 | 62d64709af3b |
| parent 43824 | 0234156d3fbe |
| child 43986 | 85c91284ed94 |
--- a/src/HOL/Tools/ATP/atp_problem.ML Thu Jul 14 15:14:38 2011 +0200 +++ b/src/HOL/Tools/ATP/atp_problem.ML Thu Jul 14 16:50:05 2011 +0200 @@ -480,7 +480,7 @@ |> (fn s => if size s > max_readable_name_size then String.substring (s, 0, max_readable_name_size div 2 - 4) ^ - Word.toString (hashw_string (full_name, 0w0)) ^ + string_of_int (hash_string full_name) ^ String.extract (s, size s - max_readable_name_size div 2 + 4, NONE) else