Assign precedence and associativity to THEN

[tiger.ml.git] / tiger / src / lib / tiger / tiger_parser.mly

diff --git a/tiger/src/lib/tiger/tiger_parser.mly b/tiger/src/lib/tiger/tiger_parser.mly
index 625632f..610ea48 100644 (file)
--- a/tiger/src/lib/tiger/tiger_parser.mly
+++ b/tiger/src/lib/tiger/tiger_parser.mly
@@ -49,6 +49,7 @@
 %token WHILE
 
 /* from lowest precedence */
+%left THEN
 %left ELSE
 %nonassoc ASSIGN
 %left OF DO