Explorar o código

make sure the default case of switches is blockified

Simon Krajewski %!s(int64=10) %!d(string=hai) anos
pai
achega
869bc26c8d
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  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