1 (* Copyright (C) 1999-2005 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.
8 val classifyEdges: Graph.t -> {discover: Graph.Node.t -> int,
9 finish: Graph.Node.t -> int}
10 -> {tree: Graph.Edge.t list ref,
11 forward: Graph.Edge.t list ref,
12 back: Graph.Edge.t list ref,
13 cross: Graph.Edge.t list ref}