Removed [Lr1.fold_reduced].

src/codeBackend.ml

@@ -439,10 +439,10 @@ let (shiftreduce : Production.index -> bool), shiftreducecount =
     (* Check that all call sites push a stack cell and have a
        default reduction. *)
 
-    Lr1.fold_reduced (fun s accu ->
+    Lr1.NodeSet.fold (fun s accu ->
       accu && (match Default.has_default_reduction s with None -> false | Some _ -> true)
            && (runpushes s)
-    ) prod true
+    ) (Lr1.production_where prod) true
 
   )
 

src/lr1.ml

@@ -938,8 +938,8 @@ let () =
 
 (* For each production, compute where (that is, in which states) this
    production can be reduced. This computation is done AFTER default conflict
-   resolution (see below). It is an error to call the accessor functions
-   [may_reduce], [ever_reduced], [fold_reduced] before conflict resolution. *)
+   resolution (see below). It is an error to call any of the accessor
+   functions before default conflict resolution has taken place. *)
 
 let production_where : NodeSet.t ProductionMap.t option ref =
   ref None
@@ -981,9 +981,6 @@ let may_reduce node prod =
 let ever_reduced prod =
   not (NodeSet.is_empty (production_where prod))
 
-let fold_reduced f prod accu =
-  NodeSet.fold f (production_where prod) accu
-
 (* ------------------------------------------------------------------------ *)
 (* When requested by the code generator, apply default conflict
    resolution to ensure that the automaton is deterministic. *)

src/lr1.mli

@@ -193,8 +193,3 @@ val may_reduce: node -> Production.index -> bool
 (* [ever_reduced prod] tells whether production [prod] is ever reduced. *)
 
 val ever_reduced: Production.index -> bool
-
-(* [fold_reduced prod] folds over all states that can reduce
-   production [prod]. *)
-
-val fold_reduced: (node -> 'a -> 'a) -> Production.index -> 'a -> 'a