Typo in Lwd_seq
This commit is contained in:
父節點
66af463b2e
當前提交
24a7f39cfd
|
@ -282,7 +282,7 @@ module Reducer = struct
|
|||
| Leaf t -> t.mark <- t.mark lor both_mask
|
||||
| Join t -> t.mark <- t.mark lor both_mask
|
||||
end;
|
||||
begin match st.shared_x.(i) with
|
||||
match st.shared_x.(i) with
|
||||
| [] -> assert false
|
||||
| [_] -> ()
|
||||
| xs -> st.shared_x.(i) <- List.rev xs
|
||||
|
|
Loading…
Reference in New Issue