Ver código fonte

minor fix with inline + --no-inline + optional basic params on flash9

Nicolas Cannasse 15 anos atrás
pai
commit
1b38d9a828
1 arquivos alterados com 1 adições e 1 exclusões
  1. 1 1
      typer.ml

+ 1 - 1
typer.ml

@@ -155,7 +155,7 @@ let unify_call_params ctx name el args p inline =
 	let rec loop acc l l2 skip =
 	let rec loop acc l l2 skip =
 		match l , l2 with
 		match l , l2 with
 		| [] , [] ->
 		| [] , [] ->
-			if not inline && (Common.defined ctx.com "flash" || Common.defined ctx.com "js") then
+			if not (inline && ctx.doinline) && (Common.defined ctx.com "flash" || Common.defined ctx.com "js") then
 				List.rev (no_opt acc)
 				List.rev (no_opt acc)
 			else
 			else
 				List.rev (List.map fst acc)
 				List.rev (List.map fst acc)