simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2026-01-28 11:54:51 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

breaking: change signature of CCDeque.of_seq

Browse source
This commit is contained in:
Simon Cruanes 2015-08-31 16:16:12 +02:00
parent d204e1946f
commit e248b555da
2 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/data/CCDeque.ml
View file

@ -159,7 +159,8 @@ let add_seq_front q seq = seq (fun x -> push_front q x)
assert_equal [1;2;3;4;5;6;7] (to_list q); assert_equal [1;2;3;4;5;6;7] (to_list q);
*) *)
let of_seq ?(deque=create ()) seq = let of_seq seq =
let deque = create () in
seq (fun x -> push_back deque x); seq (fun x -> push_back deque x);
deque deque

5
src/data/CCDeque.mli
View file

@ -89,7 +89,10 @@ val fold : ('b -> 'a -> 'b) -> 'b -> 'a t -> 'b
type 'a gen = unit -> 'a option type 'a gen = unit -> 'a option
type 'a sequence = ('a -> unit) -> unit type 'a sequence = ('a -> unit) -> unit
val of_seq : ?deque:'a t -> 'a sequence -> 'a t val of_seq : 'a sequence -> 'a t
(** Create a deque from the sequence.
@since NEXT_RELEASE optional argument [deque] disappears, use
{!add_seq_back} instead *)
val to_seq : 'a t -> 'a sequence val to_seq : 'a t -> 'a sequence