@@ -157,12 +157,6 @@ let rec gen_call ctx e el =
concat ctx "," (gen_value ctx) params;
spr ctx "])";
);
- | TField (e,s) , el ->
- gen_value ctx e;
- spr ctx (field s);
- spr ctx "(";
- concat ctx "," (gen_value ctx) el;
- spr ctx ")"
| TCall (x,_) , el when x.eexpr <> TLocal "__js__" ->
spr ctx "(";
gen_value ctx e;
@@ -227,8 +227,6 @@ and gen_call ctx p e el =
this p;
array p (List.map (gen_expr ctx) el)
]
- | TField (e,f) , el ->
- call p (field p (gen_expr ctx e) f) (List.map (gen_expr ctx) el)
| _ , _ ->
let e = (match gen_expr ctx e with EFunction _, _ as e -> (EBlock [e],p) | e -> e) in
call p e (List.map (gen_expr ctx) el)