Fixed iterator minimization bug.
This commit is contained in:
parent
80f24b747c
commit
2fb27770b8
|
@ -392,8 +392,8 @@ and reconstruct_exp_desc mapping headd children =
|
||||||
let rst, children = match rst_dummy with
|
let rst, children = match rst_dummy with
|
||||||
| None -> None, children
|
| None -> None, children
|
||||||
| Some _ -> Some (reconstruct_class_ref mapping (List.hd children)), List.tl children in
|
| Some _ -> Some (reconstruct_class_ref mapping (List.hd children)), List.tl children in
|
||||||
let total_w_list = reconstruct_extvalues mapping (partial_w_list @ w_list) children in
|
let total_w_list = reconstruct_extvalues mapping (w_list @ partial_w_list) children in
|
||||||
let partial_w_list, w_list = split_at (List.length partial_w_list) total_w_list in
|
let w_list, partial_w_list = split_at (List.length w_list) total_w_list in
|
||||||
Eiterator (it, app, sel, partial_w_list, w_list, optional extract_name rst)
|
Eiterator (it, app, sel, partial_w_list, w_list, optional extract_name rst)
|
||||||
|
|
||||||
and reconstruct_extvalues mapping w_list children =
|
and reconstruct_extvalues mapping w_list children =
|
||||||
|
|
Loading…
Reference in a new issue