浏览代码

dodge ST3 syntax highlighting issue

Simon Krajewski 10 年之前
父节点
当前提交
643e2e4d2f
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      filters.ml

+ 1 - 1
filters.ml

@@ -330,7 +330,7 @@ let captured_vars com e =
 	| Cs | Java ->
 	| Cs | Java ->
 		let cnativearray =
 		let cnativearray =
 			match (List.find (fun md -> match md with
 			match (List.find (fun md -> match md with
-					| TClassDecl ({ cl_path = ["cs" | "java"],"NativeArray" }) -> true
+					| TClassDecl ({ cl_path = ["cs"|"java"],"NativeArray" }) -> true
 					| _ -> false
 					| _ -> false
 				) com.types)
 				) com.types)
 			with TClassDecl cl -> cl | _ -> assert false
 			with TClassDecl cl -> cl | _ -> assert false