Lua writer: Fix nested binary expressions

minoki · Sep 8, 2024 · a3b90e5 · a3b90e5
1 parent d03a95f
commit a3b90e5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/lua-syntax.sml b/src/lua-syntax.sml
@@ -815,12 +815,12 @@ struct
                   { prec = prec
                   , exp =
                       paren prec exp1
-                      @ Fragment (" " ^ luaop ^ " ") :: paren (prec + 1) exp2
+                      @ Fragment (" " ^ luaop ^ " ") :: paren (prec - 1) exp2
                   }
               | InfixOpR (prec, luaop) =>
                   { prec = prec
                   , exp =
-                      paren (prec + 1) exp1
+                      paren (prec - 1) exp1
                       @ Fragment (" " ^ luaop ^ " ") :: paren prec exp2
                   }
             end