瀏覽代碼

make sure the default case of switches is blockified

Simon Krajewski 10 年之前
父節點
當前提交
869bc26c8d
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      filters.ml

+ 1 - 1
filters.ml

@@ -33,7 +33,7 @@ let rec blockify_ast e =
 		let cases = List.map (fun (el,e) ->
 			el,mk_block (blockify_ast e)
 		) cases in
-		let def = match def with None -> None | Some e -> Some (blockify_ast e) in
+		let def = match def with None -> None | Some e -> Some (mk_block (blockify_ast e)) in
 		{e with eexpr = TSwitch(e1,cases,def)}
 	| _ ->
 		Type.map_expr blockify_ast e