From 27457eb6e2f8ef472a7f744045a0c3fbdaae153f Mon Sep 17 00:00:00 2001
From: Hyeonung Baek <wiserlix@gmail.com>
Date: Tue, 15 Feb 2022 00:08:40 +0900
Subject: [PATCH] Fix operator precedence

---
 parser.ml | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/parser.ml b/parser.ml
index 2ffedac..8e35aae 100644
--- a/parser.ml
+++ b/parser.ml
@@ -17,18 +17,18 @@ let unexpected_token t =
  * precedency, but infering precedence relation from the graph is hard
  * and the graph can be made to have loops, I just used plain table. *)
 let precedence = [
+  Eq, 1;
+  Neq, 1;
+  GE, 1;
+  LE, 1;
+  GT, 1;
+  LT, 1;
   Add, 10;
   Sub, 10;
   Mul, 20;
   Div, 20;
   Mod, 30;
   Exp, 30;
-  Eq, 100;
-  Neq, 100;
-  GE, 100;
-  LE, 100;
-  GT, 100;
-  LT, 100;
 ] |> List.to_seq |> Hashtbl.of_seq
 
 let precedence_of op =