anchor.diff:               yield newToken
                yield! parseLine tail None ]
   
  -    [| for TokenisedLine(lineNo, offset, tokens, stateEOL) in tokenLines do
  +    [| for TokenisedLine(LineDetail(lineNo, offset, line), tokens, stateEOL) in tokenLines do
            let mergedTokens = parseLine tokens None
  -         yield TokenisedLine(lineNo, offset, mergedTokens, stateEOL) |]
  +         yield TokenisedLine(LineDetail(lineNo, offset, line), mergedTokens, stateEOL) |]
   
     let getMergedTokens lineDetails filename defines = 
       [|let state = ref 0L
  
positive.code:                   yield tok
                    yield! parseLine()
                | None, nstate -> state := nstate ]
          yield TokenisedLine(lineNumber, lineOffset, parseLine(), !state) ]
  
    let getTokens lineDetails filename defines = 
      getTokensWithInitialState 0L lineDetails filename defines
  
negative.code:                  match lastToken with
                   | Some other -> yield other
                   | _ -> ()]
          yield TokenisedLine(LineDetail(lineNumber, lineOffset, lineText), parseLine None, !state) |]