More work on experimental C backend

1 files changed, 1 insertions, 1 deletions

diff --git a/src/isail.ml b/src/isail.ml
index 235e46a2..07a72bd2 100644
--- a/src/isail.ml
+++ b/src/isail.ml
@@ -296,7 +296,7 @@ let handle_input' input =
                vs_ids := Initial_check.val_spec_ids !interactive_ast
             | ":compile" ->
                let exp = Type_check.infer_exp !interactive_env (Initial_check.exp_of_string Ast_util.dec_ord arg) in
-               let anf = C_backend.compile_exp exp in
+               let anf = C_backend.compile_exp !interactive_env exp in
                print_endline (Pretty_print_sail.to_string (C_backend.pp_aexp anf))
             | ":u" | ":unload" ->
                interactive_ast := Ast.Defs [];