소스 검색

temp workaround around unbound ` globals (related to #2318)

Nicolas Cannasse 12 년 전
부모
커밋
cb9a06adb2
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      optimizer.ml

+ 1 - 1
optimizer.ml

@@ -144,7 +144,7 @@ let rec type_inline ctx cf f ethis params tret config p force =
 			Hashtbl.find locals v.v_id
 		with Not_found -> try
 			(* if it's in our current local context, it's because we're inlining a local function *)
-			let v2 = PMap.find v.v_name ctx.locals in
+			let v2 = if v.v_name.[0] = '`' then v else PMap.find v.v_name ctx.locals in
 			if v != v2 then raise Not_found;
 			{
 				i_var = v;