anchor.diff:      open GenericImplFragments
   
       [<Sealed>]
  -#if INTERNALIZED_POWER_PACK
  -    type internal AsciiTables(trans: uint16[] array, accept: uint16[]) =
  -#else
       type AsciiTables(trans: uint16[] array, accept: uint16[]) =
  -#endif
           let rec scanUntilSentinel(lexBuffer, state) =
               let sentinel = 255 * 256 + 255 
               // Return an endOfScan after consuming the input 
  
positive.code:         static member Empty = 
              { pos_fname=""; 
                pos_lnum= 0; 
  #if INTERNALIZED_POWER_PACK
                pos_orig_lnum = 0;
  #endif
                pos_bol= 0; 
                pos_cnum=0 }
          static member FirstLine(filename) = 
              { pos_fname=filename; 
  #if INTERNALIZED_POWER_PACK
                pos_orig_lnum = 1;
  #endif
                pos_lnum= 1; 
                pos_bol= 0; 
                pos_cnum=0 }
  
  #if INTERNALIZED_POWER_PACK
      type internal LexBufferFiller<'char> = 
  #else
      type LexBufferFiller<'char> = 
  #endif
          { fillSync : (LexBuffer<'char> -> unit) option
            fillAsync : (LexBuffer<'char> -> Async<unit>) option } 
          
      and [<Sealed>]
  #if INTERNALIZED_POWER_PACK
          internal LexBuffer<'char>(filler: LexBufferFiller<'char>) as this = 
  #else
          LexBuffer<'char>(filler: LexBufferFiller<'char>) as this = 
  #endif
          let context = new Dictionary<string,obj>(1) in 
          let extendBufferSync = (fun () -> match filler.fillSync with Some refill -> refill this | None -> invalidOp "attempt to read synchronously from an asynchronous lex buffer")
          let extendBufferAsync = (fun () -> match filler.fillAsync with Some refill -> refill this | None -> invalidOp "attempt to read asynchronously from a synchronous lex buffer")
  
negative.code:         member x.Column = x.pos_cnum - x.pos_bol
          member pos.NextLine = 
              { pos with 
                      pos_lnum = pos.Line+1; 
                      pos_bol = pos.AbsoluteOffset }
          member pos.EndOfToken(n) = {pos with pos_cnum=pos.pos_cnum + n }
  