--- a/src/HOL/Spec_Check/output_style.ML Thu May 30 22:11:29 2013 +0200
+++ b/src/HOL/Spec_Check/output_style.ML Thu May 30 22:15:06 2013 +0200
@@ -40,7 +40,8 @@
fun ratio (0, _) = "(0/0 passed)"
| ratio (count, 0) = "(" ^ string_of_int count ^ " passed)"
- | ratio (count, n) = "(" ^ string_of_int (count - n) ^ "/" ^ string_of_int count ^ " passed)"
+ | ratio (count, n) =
+ "(" ^ string_of_int (count - n) ^ "/" ^ string_of_int count ^ " passed)"
fun update (stats, badobjs) donep =
"\r" ^ StringCvt.padRight #"." namew tag ^ "." ^