Skip to content

Commit 61e6519

Browse files
authored
Temporary fix for incorrect layout for result of custom and operators (#1119)
1 parent 91faf9e commit 61e6519

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

ocaml/lambda/translcore.ml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1512,7 +1512,7 @@ and transl_letop ~scopes loc env let_ ands param case partial warnings =
15121512
ap_loc = of_location ~scopes and_.bop_loc;
15131513
ap_func = op;
15141514
ap_args=[Lvar left_id; Lvar right_id];
1515-
ap_result_layout = layout;
1515+
ap_result_layout = Lambda.layout_top;
15161516
ap_region_close=Rc_normal;
15171517
ap_mode=alloc_heap;
15181518
ap_tailcall = Default_tailcall;

0 commit comments

Comments
 (0)