File tree Expand file tree Collapse file tree 1 file changed +1
-2
lines changed Expand file tree Collapse file tree 1 file changed +1
-2
lines changed Original file line number Diff line number Diff line change @@ -67,7 +67,7 @@ let simplify_alias (meta : Lam_stats.t) (lam : Lam.t) : Lam.t =
67
67
| Lprim { primitive = Pfull_apply ; args = Lvar v :: ap_args as args ; loc }
68
68
-> (
69
69
(* Inline uncurried application when safe *)
70
- let [ @ local] normal () =
70
+ let normal () =
71
71
Lam. prim ~primitive: Pfull_apply ~args: (Ext_list. map args simpl) loc
72
72
in
73
73
let ap_args = Ext_list. map ap_args simpl in
@@ -198,7 +198,6 @@ let simplify_alias (meta : Lam_stats.t) (lam : Lam.t) : Lam.t =
198
198
199
199
(* Ext_log.dwarn __LOC__ "%s/%d" v.name v.stamp; *)
200
200
let ap_args = Ext_list. map ap_args simpl in
201
- (* todo bring back local inlining *)
202
201
let normal () = Lam. apply (simpl fn) ap_args ap_info in
203
202
match Hash_ident. find_opt meta.ident_tbl v with
204
203
| Some
You can’t perform that action at this time.
0 commit comments