Typo in Lwd_seq

This commit is contained in:
Frédéric Bour 2020-05-14 12:08:43 +02:00 committed by Frédéric Bour
父節點 66af463b2e
當前提交 24a7f39cfd
共有 1 個文件被更改,包括 1 次插入1 次删除

查看文件

@ -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