diff options
| author | Son Ho | 2021-12-01 13:42:36 +0100 |
|---|---|---|
| committer | Son Ho | 2021-12-01 13:42:36 +0100 |
| commit | 309295376d22b1931ff7cb908e4d9283e86ecc50 (patch) | |
| tree | ee8a0860012dd4b48e0ca5bcda7b9f2a5fc35f66 /src/Interpreter.ml | |
| parent | d40b634c237de25574ebd1bbf64b9a7a81253f2b (diff) | |
Move the var definition
Diffstat (limited to 'src/Interpreter.ml')
| -rw-r--r-- | src/Interpreter.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Interpreter.ml b/src/Interpreter.ml index b936fa70..21124c48 100644 --- a/src/Interpreter.ml +++ b/src/Interpreter.ml @@ -48,9 +48,9 @@ let mk_typed_value (ty : T.ety) (value : V.value) : V.typed_value = { V.value; ty } (* TODO: move *) -let mk_var (index : V.VarId.id) (name : string option) (var_ty : T.ety) : V.var +let mk_var (index : V.VarId.id) (name : string option) (var_ty : T.ety) : A.var = - { V.index; name; var_ty } + { A.index; name; var_ty } (** Small helper *) let mk_place_from_var_id (var_id : V.VarId.id) : E.place = |