Procházet zdrojové kódy

[cs] don't add space after "return" without a value

Dan Korostelev před 11 roky
rodič
revize
b6c0762c17
1 změnil soubory, kde provedl 2 přidání a 2 odebrání
  1. 2 2
      gencs.ml

+ 2 - 2
gencs.ml

@@ -1454,8 +1454,8 @@ let configure gen =
 						newline w
 						newline w
 					) ve_l
 					) ve_l
 				| TReturn eopt ->
 				| TReturn eopt ->
-					write w "return ";
-					if is_some eopt then expr_s w (get eopt)
+					write w "return";
+					if is_some eopt then (write w " "; expr_s w (get eopt))
 				| TBreak -> write w "break"
 				| TBreak -> write w "break"
 				| TContinue -> write w "continue"
 				| TContinue -> write w "continue"
 				| TThrow e ->
 				| TThrow e ->