浏览代码

fix for Dictionary

Nicolas Cannasse 18 年之前
父节点
当前提交
c2bd37e597
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      genswf9.ml

+ 1 - 1
genswf9.ml

@@ -403,7 +403,7 @@ let rec setvar ctx (acc : write access) retval =
 		write ctx (A3InitProp id)
 	| VArray ->
 		let id_aset = lookup (A3MMultiNameLate ctx.gpublic) ctx.names in
-		write ctx (A3InitProp id_aset);
+		write ctx (A3SetProp id_aset);
 		ctx.infos.istack <- ctx.infos.istack - 1
 	| VScope n ->
 		write ctx (A3SetSlot n)