Complete 1.04.p: add semantic actions to parser

[tiger.ml.git] / tiger / src / exe / tiger_tests.ml

diff --git a/tiger/src/exe/tiger_tests.ml b/tiger/src/exe/tiger_tests.ml
index ebdec23..d9eb050 100644 (file)
--- 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