Browse Source

avoid French string literal

Simon Krajewski 10 years ago
parent
commit
8f8b967326
1 changed files with 1 additions and 1 deletions
  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