|
@@ -812,12 +812,13 @@ and gen__init__impl ctx e =
|
|
newline ctx;
|
|
newline ctx;
|
|
gen_call ctx e el false
|
|
gen_call ctx e el false
|
|
end;
|
|
end;
|
|
- );
|
|
|
|
|
|
+ );
|
|
| _ -> gen_block_element ctx e;
|
|
| _ -> gen_block_element ctx e;
|
|
end
|
|
end
|
|
|
|
|
|
and gen_block_element ?(after=false) ctx e =
|
|
and gen_block_element ?(after=false) ctx e =
|
|
newline ctx;
|
|
newline ctx;
|
|
|
|
+ spr ctx (debug_expression e);
|
|
begin match e.eexpr with
|
|
begin match e.eexpr with
|
|
| TTypeExpr _ -> ()
|
|
| TTypeExpr _ -> ()
|
|
| TCast (ce,_) -> gen_block_element ctx ce
|
|
| TCast (ce,_) -> gen_block_element ctx ce
|