diff options
| author | Nathan Ringo <nathan@remexre.com> | 2024-01-24 10:52:13 -0600 |
|---|---|---|
| committer | Nathan Ringo <nathan@remexre.com> | 2024-01-24 10:52:13 -0600 |
| commit | 00d3ea6b17b73594c95318adf266802b02f65abb (patch) | |
| tree | 37d5053d0a5ba4d06a1fc89c8f70945445c0e28b /discocaml/arraylist.ml | |
| parent | 6fb1c813dbe2227dab3faac3fc405260be185eca (diff) | |
Colors for overlapping binders.
Diffstat (limited to 'discocaml/arraylist.ml')
| -rw-r--r-- | discocaml/arraylist.ml | 1 |
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 }] |