- let error_count = !error_count in
- let clr = (if error_count = 0 then Green else Red) in
- p "Errors: %s" (color clr (string_of_int error_count)); p_ln ();
+ let failures = !error_count in
+ let clr = (if failures = 0 then Green else Red) in
+ p "Failures: %s" (color clr (string_of_int failures)); p_ln ();