@@ -80,7 +80,7 @@ binop op ce1@(L t1 s1 e1) ce2@(L t2 s2 e2) =
80 ; "mod" -> int $ mod n m
80 ; "mod" -> int $ mod n m
81 ; "rem" -> int $ rem n m
81 ; "rem" -> int $ rem n m
82 ; "<" -> bool $ n < m
82 ; "<" -> bool $ n < m
83− ; ">" -> bool $ n < m
83+ ; ">" -> bool $ n > m
84 ; "<=" -> bool $ n <= m
84 ; "<=" -> bool $ n <= m
85 ; ">=" -> bool $ n >= m
85 ; ">=" -> bool $ n >= m
86 ; "==" -> bool $ n == m
86 ; "==" -> bool $ n == m