From 4bec9538cc5d0570f33216d83d563970cece8b2c Mon Sep 17 00:00:00 2001
From: Graydon Hoare <graydon@mozilla.com>
Date: Thu, 1 Jul 2010 17:55:28 -0700
Subject: [PATCH] Check the simplified type used in check-expr in trans.

---
 src/boot/me/trans.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/boot/me/trans.ml b/src/boot/me/trans.ml
index fd651003351..84fd540f37a 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