From d751deedfdc2ba5fbeb72ede5754587a1f677835 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Tue, 4 Mar 2025 21:33:56 +0100 Subject: Compile: Fix right-precedence of (*) --- src/Compile.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Compile.hs') diff --git a/src/Compile.hs b/src/Compile.hs index 7a846d4..0e6eee7 100644 --- a/src/Compile.hs +++ b/src/Compile.hs @@ -170,9 +170,9 @@ printCExpr d = \case ,(">", (5, (6, 6))) ,("<=", (5, (6, 6))) ,(">=", (5, (6, 6))) - ,("+", (6, (6, 6))) + ,("+", (6, (6, 7))) ,("-", (6, (6, 7))) - ,("*", (7, (7, 7))) + ,("*", (7, (7, 8))) ,("/", (7, (7, 8))) ,("%", (7, (7, 8)))] -- cgit v1.2.3-70-g09d2