浏览代码

don't use ENext in TMatch.

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

+ 3 - 3
genneko.ml

@@ -328,8 +328,8 @@ and gen_expr ctx e =
 	| TThrow e ->
 	| TThrow e ->
 		call p (builtin p "throw") [gen_expr ctx e]
 		call p (builtin p "throw") [gen_expr ctx e]
 	| TMatch (e,_,cases,eo) ->
 	| TMatch (e,_,cases,eo) ->
-		(ENext (
-			(EVars ["@tmp",Some (gen_expr ctx e)],p),
+		(EBlock [
+			(EVars ["@tmp",Some (gen_expr ctx e)],p);
 			(ESwitch (
 			(ESwitch (
 				field p (ident p "@tmp") "tag",
 				field p (ident p "@tmp") "tag",
 				List.map (fun (s,el,e2) ->
 				List.map (fun (s,el,e2) ->
@@ -357,7 +357,7 @@ and gen_expr ctx e =
 				) cases,
 				) cases,
 				(match eo with None -> None | Some e -> Some (gen_expr ctx e))
 				(match eo with None -> None | Some e -> Some (gen_expr ctx e))
 			),p)
 			),p)
-		),p)
+		],p)
 	| TSwitch (e,cases,eo) ->
 	| TSwitch (e,cases,eo) ->
 		(ESwitch (
 		(ESwitch (
 			gen_expr ctx e,
 			gen_expr ctx e,