simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

small fix for 4.0 compat

Browse source
This commit is contained in:
Simon Cruanes 2016-04-20 10:05:04 +02:00
parent 308ea3a650
commit c14191f1bd
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/data/CCTrie.ml
View file

@ -583,10 +583,8 @@ module Make(W : WORD)
| Some v, Above -> k (W.of_list (prefix[]), v) | Some v, Above -> k (W.of_list (prefix[]), v)
| _ -> () | _ -> ()
end; end;
let seq = let seq = seq_of_map map in
seq_of_map map let seq = _seq_map (fun (c,t') -> Explore (t', _difflist_add prefix c)) seq in
|> _seq_map (fun (c,t') -> Explore (t', _difflist_add prefix c))
in
let l' = match o, dir with let l' = match o, dir with
| _, Above -> _seq_append_list [] seq | _, Above -> _seq_append_list [] seq
| None, Below -> _seq_append_list_rev [] seq | None, Below -> _seq_append_list_rev [] seq