fix eval true/false :O
This commit is contained in:
parent
2bdb1511ab
commit
c089d893c6
|
@ -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)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue