소스 검색

fixed "try" syntax when no curly braces.

Nicolas Cannasse 19 년 전
부모
커밋
65564b6a38
1개의 변경된 파일3개의 추가작업 그리고 1개의 파일을 삭제
  1. 3 1
      genjs.ml

+ 3 - 1
genjs.ml

@@ -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;