Browse Source

Typo in Lwd_seq

master
Frédéric Bour 6 months ago
committed by Frédéric Bour
parent
commit
24a7f39cfd
1 changed files with 1 additions and 1 deletions
  1. +1
    -1
      lib/lwd/lwd_seq.ml

+ 1
- 1
lib/lwd/lwd_seq.ml View File

@@ -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…
Cancel
Save