mg/mlox
1
0
Fork 0
mirror of https://github.com/MorizzG/MLox.git synced 2025-12-06 04:22:41 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixed oeprator not to convert to bool first

Browse source
This commit is contained in:
Moritz Gmeiner 2024-08-28 17:24:19 +02:00
commit 1e50140970
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/interpreter.ml
View file

@ -33,7 +33,7 @@ let rec interpret_expr (env : environment) (expr_node : expr_node) :
let* expr = interpret_expr env expr in let* expr = interpret_expr env expr in
match (op, expr) with match (op, expr) with
| Neg, Number x -> Number (-.x) |> Result.ok | Neg, Number x -> Number (-.x) |> Result.ok
| Not, Bool b -> Bool (not b) |> Result.ok | Not, value -> Bool (lox_value_to_bool value |> not) |> Result.ok
| _, _ -> | _, _ ->
let msg = let msg =
Printf.sprintf "Invalid operant of type %s to operator %s" Printf.sprintf "Invalid operant of type %s to operator %s"