Browse Source

[cs] generate whitespace after if/while conditions

[ci skip]
Dan Korostelev 11 years ago
parent
commit
c444abbb5e
1 changed files with 2 additions and 1 deletions
  1. 2 1
      gencs.ml

+ 2 - 1
gencs.ml

@@ -1405,7 +1405,7 @@ let configure gen =
 						| Ast.NormalWhile ->
 							write w "while ";
 							expr_s w (mk_paren econd);
-							write w "";
+							write w " ";
 							in_value := false;
 							expr_s w (mk_block eblock)
 						| Ast.DoWhile ->
@@ -1419,6 +1419,7 @@ let configure gen =
 				| TSwitch (econd, ele_l, default) ->
 					write w "switch ";
 					expr_s w (mk_paren econd);
+					write w " ";
 					begin_block w;
 					List.iter (fun (el, e) ->
 						List.iter (fun e ->