From b1d3e9697ada3e745eae0f18a586f51eb9d19ff5 Mon Sep 17 00:00:00 2001
From: Graydon Hoare <graydon@mozilla.com>
Date: Fri, 2 Jul 2010 15:11:44 -0700
Subject: [PATCH] Return LLVM to at least being able to run hello world.

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

diff --git a/src/boot/llvm/lltrans.ml b/src/boot/llvm/lltrans.ml
index ed64485e963..62383ff1e48 100644
--- a/src/boot/llvm/lltrans.ml
+++ b/src/boot/llvm/lltrans.ml
@@ -821,7 +821,7 @@ let trans_crate
 
               | Ast.STMT_log a ->
                   begin
-                    match Semant.atom_type sem_cx a with
+                    match Semant.simplified_ty (Semant.atom_type sem_cx a) with
                         (* NB: If you extend this, be sure to update the
                          * typechecking code in type.ml as well. *)
                         Ast.TY_str -> trans_log_str a