---

yaml
---
r: 762
b: refs/heads/master
c: a441865
h: refs/heads/master
v: v3

Author: graydon

[refs]

@@ -1,2 +1,2 @@
 ---
-refs/heads/master: 967a6f861da8a114bcd3915ae727f9945bd625bc
+refs/heads/master: a441865f6e501697f3a132c1e5ec73336e8e3184

trunk/src/boot/me/trans.ml

@@ -281,14 +281,14 @@ let trans_visitor
   in
 
   let should_inline_structure_helpers t =
-    let n = 2 in
+    let n = 3 in
       match t with
           Ast.TY_tag ttag ->
-            get_n_tag_tups cx ttag > n
+            get_n_tag_tups cx ttag < n
         | Ast.TY_rec elts ->
-            Array.length elts > 3
+            Array.length elts < n
         | Ast.TY_tup elts ->
-            Array.length elts > 3
+            Array.length elts < n
         | _ -> false
   in