We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 967a6f8 commit a441865Copy full SHA for a441865
src/boot/me/trans.ml
@@ -281,14 +281,14 @@ let trans_visitor
281
in
282
283
let should_inline_structure_helpers t =
284
- let n = 2 in
+ let n = 3 in
285
match t with
286
Ast.TY_tag ttag ->
287
- get_n_tag_tups cx ttag > n
+ get_n_tag_tups cx ttag < n
288
| Ast.TY_rec elts ->
289
- Array.length elts > 3
+ Array.length elts < n
290
| Ast.TY_tup elts ->
291
292
| _ -> false
293
294
0 commit comments