diff options
| author | Graydon Hoare <[email protected]> | 2010-07-01 17:55:28 -0700 |
|---|---|---|
| committer | Graydon Hoare <[email protected]> | 2010-07-01 17:55:28 -0700 |
| commit | 4bec9538cc5d0570f33216d83d563970cece8b2c (patch) | |
| tree | b6d232c3c7b2189435857bbe9c0e667c66e3b662 /src/boot | |
| parent | Extract pattern-slot variables in lval typecheck context (mutable ok). (diff) | |
| download | rust-4bec9538cc5d0570f33216d83d563970cece8b2c.tar.xz rust-4bec9538cc5d0570f33216d83d563970cece8b2c.zip | |
Check the simplified type used in check-expr in trans.
Diffstat (limited to 'src/boot')
| -rw-r--r-- | src/boot/me/trans.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/me/trans.ml b/src/boot/me/trans.ml index fd651003..84fd540f 100644 --- a/src/boot/me/trans.ml +++ b/src/boot/me/trans.ml @@ -2066,7 +2066,7 @@ let trans_visitor List.iter patch fwd_jmps and trans_check_expr (id:node_id) (e:Ast.expr) : unit = - match expr_type cx e with + match simplified_ty (expr_type cx e) with Ast.TY_bool -> let fwd_jmps = trans_cond false e in trans_cond_fail (Fmt.fmt_to_str Ast.fmt_expr e) fwd_jmps |