|
@@ -56,9 +56,9 @@ let eval_binop = function
|
|
|
Const (BoolVal (left = right), ann)
|
|
Const (BoolVal (left = right), ann)
|
|
|
|
|
|
|
|
| (Ne, Const (IntVal left, _), Const (IntVal right, _), ann) ->
|
|
| (Ne, Const (IntVal left, _), Const (IntVal right, _), ann) ->
|
|
|
- Const (BoolVal (left != right), ann)
|
|
|
|
|
|
|
+ Const (BoolVal (left <> right), ann)
|
|
|
| (Ne, Const (FloatVal left, _), Const (FloatVal right, _), ann) ->
|
|
| (Ne, Const (FloatVal left, _), Const (FloatVal right, _), ann) ->
|
|
|
- Const (BoolVal (left != right), ann)
|
|
|
|
|
|
|
+ Const (BoolVal (left <> right), ann)
|
|
|
|
|
|
|
|
| (Gt, Const (IntVal left, _), Const (IntVal right, _), ann) ->
|
|
| (Gt, Const (IntVal left, _), Const (IntVal right, _), ann) ->
|
|
|
Const (BoolVal (left > right), ann)
|
|
Const (BoolVal (left > right), ann)
|