diff options
| author | Kathy Gray | 2014-04-15 11:36:37 +0100 |
|---|---|---|
| committer | Kathy Gray | 2014-04-15 11:36:37 +0100 |
| commit | b6c01ea4e538cdd3d92f6ca2543e8ea95d542344 (patch) | |
| tree | a0dc818de6bd470ca0b3741c7d9fedf40da645a9 /src/initial_check.ml | |
| parent | 5e9f4c46b55c527fe639ae88a78fd6386c31756b (diff) | |
Put conditional path information into constraint gathering so that checking uses appropriate information gleaned from pattern matching
Diffstat (limited to 'src/initial_check.ml')
| -rw-r--r-- | src/initial_check.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/initial_check.ml b/src/initial_check.ml index 709eb42b..9f1d46d2 100644 --- a/src/initial_check.ml +++ b/src/initial_check.ml @@ -676,7 +676,7 @@ let to_ast (default_names : Nameset.t) (kind_env : kind Envmap.t) (typ_env : tan List.iter (fun (id,(d,k)) -> (match !d with - | (d,false) -> typ_error Unknown "Scattered definition never ended" (Some id) None None + | (d,false) -> typ_error Parse_ast.Unknown "Scattered definition never ended" (Some id) None None | (_, true) -> ())) partial_defs; (Defs defs),k_env |