Преглед на файлове

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();
 	| TTry (e,catchs) ->
 		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;
 		let id = ctx.id_counter in
 		ctx.id_counter <- ctx.id_counter + 1;