|
@@ -303,7 +303,9 @@ and gen_expr ctx e =
|
|
handle_break();
|
|
handle_break();
|
|
| TTry (e,catchs) ->
|
|
| TTry (e,catchs) ->
|
|
spr ctx "try ";
|
|
spr ctx "try ";
|
|
- gen_expr ctx e;
|
|
|
|
|
|
+ (match e.eexpr with
|
|
|
|
+ | TBlock _ -> gen_expr ctx e
|
|
|
|
+ | _ -> gen_expr ctx (mk (TBlock [e]) e.etype e.epos));
|
|
newline ctx;
|
|
newline ctx;
|
|
let id = ctx.id_counter in
|
|
let id = ctx.id_counter in
|
|
ctx.id_counter <- ctx.id_counter + 1;
|
|
ctx.id_counter <- ctx.id_counter + 1;
|