Defined [Lr1.entry_nt].

src/lr1.ml

@@ -1086,3 +1086,10 @@ let fold_entry f accu =
     f prod state nt t accu
   ) entry accu
 
+let entry_nt nt =
+  (* Find the entry state that corresponds to [nt]. *)
+  try
+    ProductionMap.find (Production.startsymbol2startprod nt) entry
+  with Not_found ->
+    assert false
+

src/lr1.mli

@@ -37,6 +37,11 @@ val fold_entry:
   (Production.index -> node -> Nonterminal.t -> Stretch.ocamltype -> 'a -> 'a) ->
   'a -> 'a
 
+(* This maps a (user) non-terminal start symbol to the corresponding
+   start state. *)
+
+val entry_nt: Nonterminal.t -> node
+
 (* Nodes are numbered sequentially from [0] to [n-1]. *)
 
 val n: int

src/referenceInterpreter.ml

@@ -232,12 +232,7 @@ let interpret log nt lexer lexbuf =
 
   (* Find the start state that corresponds to [nt] in the automaton. *)
 
-  let s : Lr1.node =
-    try
-      ProductionMap.find (Production.startsymbol2startprod nt) Lr1.entry
-    with Not_found ->
-      assert false
-  in
+  let s = Lr1.entry_nt nt in
 
   (* Run the engine. *)