浏览代码

use correct capture policy

Simon Krajewski 11 年之前
父节点
当前提交
59eb031156
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      common.ml

+ 2 - 2
common.ml

@@ -641,7 +641,7 @@ let get_config com =
 			pf_locals_scope = false;
 			pf_captured_scope = false;
 			pf_unique_locals = false;
-			pf_capture_policy = CPLoopVars;
+			pf_capture_policy = CPWrapRef;
 			pf_pad_nulls = false;
 			pf_add_final_return = false;
 			pf_overload = false;
@@ -907,7 +907,7 @@ let find_file ctx f =
 		(match r with
 		| None -> raise Not_found
 		| Some f -> f)
-		
+
 
 let get_full_path f = try Extc.get_full_path f with _ -> f