1 (* Copyright (C) 1999-2006 Henry Cejtin, Matthew Fluet, Suresh
2 * Jagannathan, and Stephen Weeks.
4 * MLton is released under a BSD-style license.
5 * See the file MLton-LICENSE for details.
12 val make: {equal: 'a * 'a -> bool,
13 output: 'a * Out.t -> unit} ->
15 isEmpty: 'a t -> bool,
16 forall: 'a t * ('a -> bool) -> bool,
17 equal: 'a t * 'a t -> bool,
21 fun make{equal, output} =
26 val forall = List.forall