瀏覽代碼

Hashtbl.add -> replace.

Bruno Garcia 13 年之前
父節點
當前提交
d6f5d91b03
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      genjs.ml

+ 1 - 1
genjs.ml

@@ -1000,7 +1000,7 @@ let generate com =
 	let ctx = alloc_ctx com in
 	if ctx.js_modern then begin
 		(* Additional ES5 strict mode keywords. *)
-		List.iter (fun s -> Hashtbl.add kwds s ()) [ "arguments"; "eval" ];
+		List.iter (fun s -> Hashtbl.replace kwds s ()) [ "arguments"; "eval" ];
 
 		(* Wrap output in a closure. *)
 		print ctx "(function () { \"use strict\"";