summaryrefslogtreecommitdiff
path: root/src/process_file.ml
diff options
context:
space:
mode:
authorKathy Gray2015-02-13 15:50:51 +0000
committerKathy Gray2015-02-13 15:50:51 +0000
commitf0bc412fa3b9f3f2b6131fe5322d4916730efac1 (patch)
tree31ab6d211354d8850526166a1f0ff612c05e0e51 /src/process_file.ml
parent7531d3dec300e9251f3abd6d57fc3a3464edf1c1 (diff)
Actually use new dependency information in generation of lem/etc.
Also stop rewriting code in the pretty printer, instead move it all into a new general rewriting pass
Diffstat (limited to 'src/process_file.ml')
-rw-r--r--src/process_file.ml2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/process_file.ml b/src/process_file.ml
index 7caf5172..21c6c542 100644
--- a/src/process_file.ml
+++ b/src/process_file.ml
@@ -100,6 +100,8 @@ let check_ast (defs : Type_internal.tannot Ast.defs) (k : kind Envmap.t) (o:Ast.
| (Ast.Ord_aux(Ast.Ord_dec,_)) -> Type_internal.Odec)};} in
Type_check.check (Type_check.Env (d_env, Type_internal.initial_typ_env,Type_internal.nob)) defs
+let rewrite_ast (defs: Type_internal.tannot Ast.defs) = Rewriter.rewrite_defs defs
+
let open_output_with_check file_name =
let (temp_file_name, o) = Filename.open_temp_file "ll_temp" "" in
let o' = Format.formatter_of_out_channel o in