Removed [Lr1.bfs], which was unused.

src/lr1.ml

@@ -674,20 +674,6 @@ let n =
 let forbid_default_reduction node =
   node.forbid_default_reduction
 
-(* ------------------------------------------------------------------------ *)
-(* Breadth-first iteration over all nodes. *)
-
-let bfs =
-  let module B = Breadth.Make (struct
-    type vertex = node
-    type label = Symbol.t
-    let set_mark node m = node.mark <- m
-    let get_mark node = node.mark
-    let entry f = ProductionMap.iter (fun _ node -> f node) entry
-    let successors f node = SymbolMap.iter f node.transitions
-  end) in
-  B.search
-
 (* ------------------------------------------------------------------------ *)
 (* The incoming symbol of a node can be computed by going through its LR(0)
    core. For this reason, we do not need to explicitly record it here. *)

src/lr1.mli

@@ -101,10 +101,6 @@ val map: (node -> 'a) -> 'a list
 val foldx: ('a -> node -> 'a) -> 'a -> 'a
 val iterx: (node -> unit) -> unit
 
-(* Breadth-first iteration over all edges. See [Breadth]. *)
-
-val bfs: (bool -> node -> Symbol.t -> node -> unit) -> unit
-
 (* Iteration over all edges that carry a certain symbol. Edges are
    grouped in families, where all edges in a single family have the
    same target node. [targets f accu symbol] invokes [f accu sources