Complete 1.04.p: add semantic actions to parser

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

diff --git a/tiger/src/exe/tigerc.ml b/tiger/src/exe/tigerc.ml
index fd58a83..708ff17 100644 (file)
--- a/tiger/src/exe/tigerc.ml
+++ b/tiger/src/exe/tigerc.ml
@@ -10,7 +10,7 @@ let () =
       Printf.printf
         "Syntax error in file %S, around line: %d, column: %d\n"
         path_to_program_file pos_lnum (pos_cnum - pos_bol)
-  | program ->
-      print_endline program
+  | absyn ->
+      print_endline (Tiger.Absyn.to_string absyn)
   );
   close_in ic;