diff options
| author | Brian Campbell | 2017-09-28 11:34:22 +0100 |
|---|---|---|
| committer | Brian Campbell | 2017-09-28 11:34:22 +0100 |
| commit | 1bd35a0934582ff08be0b99280b8d7080cbca4d1 (patch) | |
| tree | 276e8d13cffdfc9c0ff2771e534795559d86be61 /src/initial_check.ml | |
| parent | b5969ea7ca7de19ea2b96c48b1765e2c51e5d2af (diff) | |
| parent | 381a3967ebd9269082b452669f507787decf28b0 (diff) | |
Merge branch 'experiments' into mono-experiments
Diffstat (limited to 'src/initial_check.ml')
| -rw-r--r-- | src/initial_check.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/initial_check.ml b/src/initial_check.ml index 1f7840d0..83c79646 100644 --- a/src/initial_check.ml +++ b/src/initial_check.ml @@ -469,7 +469,9 @@ and to_ast_exp (k_env : kind Envmap.t) (def_ord : order) (Parse_ast.E_aux(exp,l) | Parse_ast.E_if(e1,e2,e3) -> E_if(to_ast_exp k_env def_ord e1, to_ast_exp k_env def_ord e2, to_ast_exp k_env def_ord e3) | Parse_ast.E_for(id,e1,e2,e3,atyp,e4) -> E_for(to_ast_id id,to_ast_exp k_env def_ord e1, to_ast_exp k_env def_ord e2, - to_ast_exp k_env def_ord e3,to_ast_order k_env def_ord atyp, to_ast_exp k_env def_ord e4) + to_ast_exp k_env def_ord e3,to_ast_order k_env def_ord atyp, to_ast_exp k_env def_ord e4) + | Parse_ast.E_loop(Parse_ast.While, e1, e2) -> E_loop (While, to_ast_exp k_env def_ord e1, to_ast_exp k_env def_ord e2) + | Parse_ast.E_loop(Parse_ast.Until, e1, e2) -> E_loop (Until, to_ast_exp k_env def_ord e1, to_ast_exp k_env def_ord e2) | Parse_ast.E_vector(exps) -> (match to_ast_iexps false k_env def_ord exps with | Some([]) -> E_vector([]) |