appendable_list.ml
lsp
lsp.fiber
lsp.fiber_unix
lsp.stdune
1 2 3 4 5 6 7 8 9 type 'a t = 'a list -> 'a list let empty k = k let singleton x k = x :: k let to_list l = l [] let ( @ ) a b k = a (b k)
1 2 3 4 5 6 7 8 9
type 'a t = 'a list -> 'a list let empty k = k let singleton x k = x :: k let to_list l = l [] let ( @ ) a b k = a (b k)