fix eval true/false :O

This commit is contained in:
tali 2023-11-30 13:51:00 -05:00
parent 2bdb1511ab
commit c089d893c6
1 changed files with 2 additions and 2 deletions

View File

@ -63,8 +63,8 @@ let return_value fr = fr.regs.(0)
let eval fr = function let eval fr = function
| Code.Cst_nil -> Value.Nil | Code.Cst_nil -> Value.Nil
| Code.Cst_true -> Value.Nil | Code.Cst_true -> Value.True
| Code.Cst_false -> Value.Nil | Code.Cst_false -> Value.False
| Code.Cst_int n -> Value.Int n | Code.Cst_int n -> Value.Int n
| Code.Reg i -> fr.regs.(i) | Code.Reg i -> fr.regs.(i)