aboutsummaryrefslogtreecommitdiff
path: root/discocaml/arraylist.ml
diff options
context:
space:
mode:
Diffstat (limited to 'discocaml/arraylist.ml')
-rw-r--r--discocaml/arraylist.ml1
1 files changed, 1 insertions, 0 deletions
diff --git a/discocaml/arraylist.ml b/discocaml/arraylist.ml
index 110cd17..8979349 100644
--- a/discocaml/arraylist.ml
+++ b/discocaml/arraylist.ml
@@ -56,6 +56,7 @@ let push arraylist x =
arraylist.len <- arraylist.len + 1
let to_array { array; len; _ } = Array.sub array 0 len
+let to_seq arraylist = Array.to_seq (to_array arraylist)
module Array_for_pp = struct
type 'a t = 'a array [@@deriving show { with_path = false }]