瀏覽代碼

[cs] Also add __typeof__ to the list of special vars

Cauê Waneck 10 年之前
父節點
當前提交
d0a8d8a02f
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      gencommon.ml

+ 1 - 1
gencommon.ml

@@ -9704,7 +9704,7 @@ struct
 	let traverse gen (change_expr:texpr->module_type->texpr) =
 	let traverse gen (change_expr:texpr->module_type->texpr) =
 		let rec run e =
 		let rec run e =
 			match e.eexpr with
 			match e.eexpr with
-					| TCall( ({ eexpr = TLocal({ v_name = ("__is__" | "__as__") } as v) } as local), calls ) when Hashtbl.mem gen.gspecial_vars v.v_name ->
+					| TCall( ({ eexpr = TLocal({ v_name = ("__is__" | "__as__" | "__typeof__") } as v) } as local), calls ) when Hashtbl.mem gen.gspecial_vars v.v_name ->
 						{ e with eexpr = TCall(local, List.map (fun e ->
 						{ e with eexpr = TCall(local, List.map (fun e ->
 							match e.eexpr with
 							match e.eexpr with
 							| TTypeExpr _ -> e
 							| TTypeExpr _ -> e