diff options
Diffstat (limited to 'etc/isar/BigErrors.thy')
| -rw-r--r-- | etc/isar/BigErrors.thy | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/etc/isar/BigErrors.thy b/etc/isar/BigErrors.thy index ec6d5580..0dd41e42 100644 --- a/etc/isar/BigErrors.thy +++ b/etc/isar/BigErrors.thy @@ -6,12 +6,12 @@ begin consts foo :: 'a consts bar :: 'a -ML {* warning (cat_lines (List.tabulate (300,K "This is a big warning message"))); *} +ML {* warning (cat_lines (replicate 300 "This is a big warning message")); *} (* Attempt to get a big error with "error" fails, but we can use printing function (see FaultyErrors.thy) *) -ML {* Output.error_msg (cat_lines (List.tabulate (10000,K "This is a big error message"))); *} +ML {* Output.error_msg (cat_lines (replicate 10000 "This is a big error message")); *} (* Note about FaultyErrors: the above generates an error interactively but does *not* generate an error when |