Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
14 lines (10 sloc) 250 Bytes
open Oassoc
class virtual ['a] osequence =
object(o: 'o)
(* inherit ['a] ocollection *)
inherit [int, 'a] oassoc
method virtual nth: int -> 'a
method virtual first: 'a
method virtual last: 'a
(* head tail push pop top cons snoc *)
end