This commit is contained in:
Frédéric Bour 2020-05-14 12:08:43 +02:00 odevzdal Frédéric Bour
rodič 66af463b2e
revize 24a7f39cfd
1 změnil soubory, kde provedl 1 přidání a 1 odebrání

Zobrazit soubor

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