Browse Source

Ignore redundant parenthesis

Hugh Sanderson 15 years ago
parent
commit
9f2d61aefd
1 changed files with 3 additions and 1 deletions
  1. 3 1
      gencpp.ml

+ 3 - 1
gencpp.ml

@@ -1216,7 +1216,9 @@ and gen_expression ctx retval expression =
 	| TClosure (expr,name)
 	| TField (expr,name) ->
 		gen_member_access expr name (is_function_member expression) expression.etype
-	| TParenthesis expr -> output "("; gen_expression ctx true expr; output ")"
+	| TParenthesis expr when not retval ->
+			gen_expression ctx retval expr;
+	| TParenthesis expr -> output "("; gen_expression ctx retval expr; output ")"
 	| TObjectDecl decl_list ->
 		let func_name = use_anon_function_name ctx in
 		(try output ( func_name ^ "::Block(" ^