Generic compare

This commit is contained in:
Dmitry Boulytchev 2019-12-20 00:23:35 +03:00
parent a9946113c9
commit 6181173cb8
6 changed files with 117 additions and 5 deletions

View file

@ -589,7 +589,6 @@ module Expr =
ignore atr (
match s with
| ":" -> Sexp ("cons", [x; y])
(*| "++" -> Call (Var "strcat", [x; y]) *)
| ":=" -> Assign (x, y)
| _ -> Binop (s, x, y)
)
@ -770,7 +769,7 @@ module Infix =
`Lefta , ["!!"];
`Lefta , ["&&"];
`Nona , ["=="; "!="; "<="; "<"; ">="; ">"];
`Lefta , [(*"++";*) "+" ; "-"];
`Lefta , ["+" ; "-"];
`Lefta , ["*" ; "/"; "%"];
|]