X-Git-Url: https://git.xandkar.net/?p=tiger.ml.git;a=blobdiff_plain;f=compiler%2Fsrc%2Fexe%2Ftiger_tests.ml;h=e22a046c330ce2b9e22c8d8a71f2fe8c79b65252;hp=d9eb0500e6f2e031379116b483dd79b87a107773;hb=e7b4c94e4735593c55b89a294a10500d96ddd545;hpb=5597e56d8f5d880cfdd425f4a5d2ae6d2637df70

diff --git a/compiler/src/exe/tiger_tests.ml b/compiler/src/exe/tiger_tests.ml
index d9eb050..e22a046 100644
--- a/compiler/src/exe/tiger_tests.ml
+++ b/compiler/src/exe/tiger_tests.ml
@@ -348,8 +348,8 @@ let () =
 
     printf "%sParsing: " (indent 1);
     (match parsetree_of_code code with
-    | Error errmsg -> printf "%sERROR:%s %s\n" color_on_red   color_off errmsg
-    | Ok parsetree -> printf "%sOK:%s %s\n"    color_on_green color_off parsetree
+    | Error errmsg -> printf "%sERROR:%s %s\n"   color_on_red   color_off errmsg
+    | Ok parsetree -> printf "%sOK:%s\n\n%s\n\n" color_on_green color_off parsetree
     );
 
   );