diff options
| author | Pierre Weis <Pierre.Weis@inria.fr> | 2009-12-09 09:32:39 +0000 |
|---|---|---|
| committer | Pierre Weis <Pierre.Weis@inria.fr> | 2009-12-09 09:32:39 +0000 |
| commit | 341d13f27964c0a45d9cafae560c71bcc79f7816 (patch) | |
| tree | 6bba47df8487b21cd1a40793f14d3b762fb6ab59 | |
| parent | 3ced5196f424ea5597d9c7407492d790aa9e4033 (diff) | |
| download | ocaml-341d13f27964c0a45d9cafae560c71bcc79f7816.tar.gz | |
Error report in case of -strict-sequence has been triggered.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@9466 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | typing/typecore.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/typing/typecore.ml b/typing/typecore.ml index 21ee81a5fe..fb91522698 100644 --- a/typing/typecore.ml +++ b/typing/typecore.ml @@ -2146,8 +2146,8 @@ and type_statement env sexp = let exp = type_exp env sexp in end_def(); if !Clflags.strict_sequence then - let expected_type = instance Predef.type_unit in - unify env expected_type exp.exp_type; + let expected_ty = instance Predef.type_unit in + unify_exp env exp expected_ty; exp else let ty = expand_head env exp.exp_type and tv = newvar() in begin match ty.desc with |