Fix optimization bug with > sign.
commit74d3c35131d5fcfc7a51dabad04eedf7e6bb8a41
authorEvan Czaplicki <evan@Evans-MacBook-Air.local>
dateTue 2 Jul 2013, 16:58 (13 years ago)
parent60de915
compiler/Transform/Optimize.hs+1−1
@@ -80,7 +80,7 @@ binop op ce1@(L t1 s1 e1) ce2@(L t2 s2 e2) =
8080 ; "mod" -> int $ mod n m
8181 ; "rem" -> int $ rem n m
8282 ; "<" -> bool $ n < m
83− ; ">" -> bool $ n < m
83+ ; ">" -> bool $ n > m
8484 ; "<=" -> bool $ n <= m
8585 ; ">=" -> bool $ n >= m
8686 ; "==" -> bool $ n == m