Commit cc3461e6 authored by Andrei Paskevich's avatar Andrei Paskevich
Browse files

fix splitting

parent e4f105d2
......@@ -32,7 +32,7 @@ let split_case forig spl c acc tl bl =
let bl = List.rev_map t_open_branch_cb bl in
let bll,_ = List.fold_left (fun (bll,el) (pl,f,close) ->
let spf = spl [] f in
let brc = t_close_branch pl c in
let brc = close pl c in
let bll = (fun rl -> brc::rl) bll in
let bll = apply_append (fun f -> close pl f :: el) bll spf in
bll, brc::el) ([],[]) bl
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment