X-Git-Url: https://git.xandkar.net/?p=tiger.ml.git;a=blobdiff_plain;f=compiler%2Fsrc%2Fexe%2Ftiger_tests.ml;h=6f1ce3b655d5e3754ac6a633cd4bee6d25848c6b;hp=e2015e9234ed9bea16568adc15d4780b979e07ad;hb=74305f428ca70afeedb7b9ba6ac1ae74ff5d7215;hpb=d3558060276fd0cd604b984d7c30780a09b9b493

diff --git a/compiler/src/exe/tiger_tests.ml b/compiler/src/exe/tiger_tests.ml
index e2015e9..6f1ce3b 100644
--- a/compiler/src/exe/tiger_tests.ml
+++ b/compiler/src/exe/tiger_tests.ml
@@ -158,11 +158,11 @@ end = struct
             p_indent 2; p "out: %s" parsing_out; p_ln ();
     );
     p "%s" bar_end; p_ln ();
-    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 ();
     p "%s" bar_end; p_ln ();
-    exit error_count
+    exit failures
 end
 
 let test_cases_from_book =