diff options
Diffstat (limited to '')
-rw-r--r-- | src/Interpreter.ml | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/src/Interpreter.ml b/src/Interpreter.ml index 21124c48..fefbb00b 100644 --- a/src/Interpreter.ml +++ b/src/Interpreter.ml @@ -7,6 +7,8 @@ module C = Contexts module Subst = Substitute module A = CfimAst module L = Logging +open TypesUtils +open ValuesUtils (* TODO: Change state-passing style to : st -> ... -> (st, v) *) (* TODO: check that the value types are correct when evaluating *) @@ -21,7 +23,7 @@ module L = Logging where invariants might be broken, etc. *) -(* TODO: test with PLT-redex *) +(* TODO: intensively test with PLT-redex *) (** Some utilities *) @@ -39,15 +41,6 @@ let statement_to_string ctx = Print.EvalCtxCfimAst.statement_to_string ctx "" " " (* TODO: move *) -let mk_unit_ty : T.ety = T.Tuple [] - -(* TODO: move *) -let mk_unit_value : V.typed_value = { V.value = V.Tuple []; V.ty = mk_unit_ty } - -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) : A.var = { A.index; name; var_ty } |