浏览代码

apply --each to last compilation step (fixed issue #1155)

Simon Krajewski 13 年之前
父节点
当前提交
54bd3d9233
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      main.ml

+ 1 - 1
main.ml

@@ -390,7 +390,7 @@ let rec process_params create pl =
 	let each_params = ref [] in
 	let rec loop acc = function
 		| [] ->
-			let ctx = create (List.rev acc) in
+			let ctx = create (!each_params @ (List.rev acc)) in
 			init ctx;
 			ctx.flush()
 		| "--next" :: l ->