anchor.diff:  
           // Using the LR(1) to LALR(1) state-id map, create a
           // LALR(1) parser table from the LR(1) parser table.
  -        let lalrTable =
  -            (Map.empty, tableGenState.Table)
  -            ||> Map.fold (fun lalrTable (lrParserStateId, lookaheadToken) lrActions ->
  +        let lalrActionTable =
  +            (Map.empty, tableGenState.ActionTable)
  +            ||> Map.fold (fun lalrActionTable (lrParserStateId, lookaheadToken) lrActions ->
                   /// The LALR(1) state identifier for this LR(1) state.
                   let lalrParserStateId = Map.find lrParserStateId lrToLalrIdMap
   
  
positive.code:         match this with
          | Shift stateId ->
              "s" + stateId.ToString ()
          | Goto stateId ->
              "g" + stateId.ToString ()
          | Reduce ruleId ->
              "r" + ruleId.ToString ()
          | Accept ->
  
negative.code:                 (targetState : ParserStateId)
                  (tableGenState : LrTableGenState<'Nonterminal, 'Terminal, 'Lookahead>) =
          //
          let tableKey = sourceState, transitionSymbol
  
          //
          let entry =
              let action = LrParserAction.Shift targetState
              match Map.tryFind tableKey tableGenState.ActionTable with
              | None ->
                  Set.singleton action
              | Some entry ->
  