Wrap long line.

2010-07-02 16:12:34 -07:00 · 2010-07-02 16:12:34 -07:00 · ec0de963e0
parent 63f9bd7b63
commit ec0de963e0
1 changed files with 12 additions and 11 deletions
--- a/src/boot/llvm/lltrans.ml
+++ b/src/boot/llvm/lltrans.ml
@ -821,7 +821,8 @@ let trans_crate

              | Ast.STMT_log a ->
                  begin
-                    match Semant.simplified_ty (Semant.atom_type sem_cx a) with
+                    let aty = Semant.atom_type sem_cx a in
+                      match Semant.simplified_ty aty 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