X-Git-Url: https://git.xandkar.net/?p=tiger.ml.git;a=blobdiff_plain;f=tiger%2Fsrc%2Fexe%2Ftiger_tests.ml;h=d9eb0500e6f2e031379116b483dd79b87a107773;hp=ebdec2363ddd897f736c8ddbafc0d8e2b43315cb;hb=28875fece2374a41510edbef416311c308695774;hpb=4309a757776e6528be720605fe04442ae46c39b8

diff --git a/tiger/src/exe/tiger_tests.ml b/tiger/src/exe/tiger_tests.ml
index ebdec23..d9eb050 100644
--- a/tiger/src/exe/tiger_tests.ml
+++ b/tiger/src/exe/tiger_tests.ml
@@ -313,8 +313,8 @@ let () =
         let L.({lex_curr_p = {pos_lnum=l; pos_bol=b; pos_cnum=c; _}; _}) = lb in
         let msg = sprintf "Syntax error around line: %d, column: %d" l (c - b) in
         Error msg
-    | parsetree ->
-        Ok parsetree
+    | absyn ->
+        Ok (Tiger.Absyn.to_string absyn)
     )
   in
   let bar_sep = String.make 80 '-' in