diff options
| author | Kathy Gray | 2015-02-13 15:50:51 +0000 |
|---|---|---|
| committer | Kathy Gray | 2015-02-13 15:50:51 +0000 |
| commit | f0bc412fa3b9f3f2b6131fe5322d4916730efac1 (patch) | |
| tree | 31ab6d211354d8850526166a1f0ff612c05e0e51 /src/process_file.ml | |
| parent | 7531d3dec300e9251f3abd6d57fc3a3464edf1c1 (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.ml | 2 |
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 |
