diff options
Diffstat (limited to '')
| -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 = |