| changeset 80567 | b2c14b489e60 |
| parent 80565 | 2acdaa0a7d29 |
| child 80794 | d4c489401844 |
--- a/src/Pure/General/bytes.ML Sun Jul 14 17:49:30 2024 +0200 +++ b/src/Pure/General/bytes.ML Sun Jul 14 17:56:54 2024 +0200 @@ -216,6 +216,8 @@ val _ = ML_system_pp (fn _ => fn _ => fn bytes => - PolyML.PrettyString ("Bytes {size = " ^ string_of_int (size bytes) ^ "}")) + PolyML.PrettyString + (if is_empty bytes then "Bytes.empty" + else "Bytes {size = " ^ string_of_int (size bytes) ^ "}")) end;