diff options
| author | Graydon Hoare <graydon@mozilla.com> | 2010-07-01 17:11:01 -0700 |
|---|---|---|
| committer | Graydon Hoare <graydon@mozilla.com> | 2010-07-01 17:11:01 -0700 |
| commit | ae25e66a7fe22d700de047fa8e6190384f44652e (patch) | |
| tree | d080dfd78dc0bd6eb89547c3c214bc11be21641c /src/boot | |
| parent | abfeefc662d93c0f283a0fac0b29ac82eac05708 (diff) | |
Extract pattern-slot variables in lval typecheck context (mutable ok).
Diffstat (limited to 'src/boot')
| -rw-r--r-- | src/boot/me/type.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/me/type.ml b/src/boot/me/type.ml index 76129e575a3..c35059fade9 100644 --- a/src/boot/me/type.ml +++ b/src/boot/me/type.ml @@ -1491,7 +1491,7 @@ let process_crate (cx:ctxt) (crate:Ast.crate) : unit = (List.rev (Array.to_list tag_ty_tup)); | Ast.PAT_slot (sloti, _) -> - unify_slot strict_ctx sloti.node (Some sloti.id) expected + unify_slot lval_ctx sloti.node (Some sloti.id) expected | Ast.PAT_wild -> () in |