Przeglądaj źródła

Hashtbl.add -> replace.

Bruno Garcia 13 lat temu
rodzic
commit
d6f5d91b03
1 zmienionych plików z 1 dodań i 1 usunięć
  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\"";