Typo in Lwd_seq

这个提交包含在:
Frédéric Bour 2020-05-14 12:08:43 +02:00 提交者 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