diff options
| author | Kathy Gray | 2015-02-04 18:05:06 +0000 |
|---|---|---|
| committer | Kathy Gray | 2015-02-04 18:05:06 +0000 |
| commit | 45925f6aaf9a130fa48d9fbec2b7c05da2d7bb42 (patch) | |
| tree | 08a89d1f90bce4449586294c2f5d730975750a9d /src/process_file.ml | |
| parent | acbc92fe72f196d06b28e3e7137a9d304a2c79d3 (diff) | |
collect and carry around more data for dependency tracking
Diffstat (limited to 'src/process_file.ml')
| -rw-r--r-- | src/process_file.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/process_file.ml b/src/process_file.ml index deca5d53..7caf5172 100644 --- a/src/process_file.ml +++ b/src/process_file.ml @@ -98,7 +98,7 @@ let check_ast (defs : Type_internal.tannot Ast.defs) (k : kind Envmap.t) (o:Ast. Type_internal.default_o = {Type_internal.order = (match o with | (Ast.Ord_aux(Ast.Ord_inc,_)) -> Type_internal.Oinc | (Ast.Ord_aux(Ast.Ord_dec,_)) -> Type_internal.Odec)};} in - Type_check.check (Type_check.Env (d_env, Type_internal.initial_typ_env)) defs + Type_check.check (Type_check.Env (d_env, Type_internal.initial_typ_env,Type_internal.nob)) defs let open_output_with_check file_name = let (temp_file_name, o) = Filename.open_temp_file "ll_temp" "" in |