浏览代码

avoid French string literal

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

+ 1 - 1
optimizer.ml

@@ -1619,7 +1619,7 @@ let optimize_completion_expr e =
 				| EFunction (_,f) ->
 					Ast.map_expr (subst_locals { r = PMap.foldi (fun n i acc -> if List.exists (fun (a,_,_,_) -> a = n) f.f_args then acc else PMap.add n i acc) locals.r PMap.empty }) e
 				| EObjectDecl [] ->
-					(* this probably comes from {| completion so we need some context} *)
+					(* this probably comes from { | completion so we need some context} *)
 					raise Exit
 				| _ ->
 					Ast.map_expr (subst_locals locals) e