Re-implemented the user-visible [lhs] function using the [lhs] table,

composed with the function [nonterminal].

src/tableFormat.ml

@@ -129,6 +129,9 @@ module type INSPECTION_TABLES = sig
 
   val lhs: PackedIntArray.t
 
+  val terminal: int -> xsymbol
+  val nonterminal: int -> xsymbol
+
   (* A mapping of every (non-initial) state to its incoming symbol. *)
 
   val symbol: 'a lr1state -> 'a symbol

src/tableInterpreter.ml

@@ -184,8 +184,8 @@ module MakeInspection (T : TableFormat.INSPECTION_TABLES) = struct
         data
 
   let lhs prod =
-    let lhs, _ = production_def prod in
-    lhs
+    let nt = PackedIntArray.get T.lhs prod in
+    T.nonterminal nt
 
   let rhs prod =
     let _, rhs = production_def prod in