anchor.diff:          | Some t, s -> Some(t, s)
           | _ -> None
   
  -    let getLexedTokens (style, line:DocumentLine, offset, lineText, extraColorInfo) =
  +    let getLexedTokens (style, line:DocumentLine, offset, lineText) =
           let tokenizer = sourceTokenizer.CreateLineTokenizer(lineText)
           let tokens = 
               List.unfold (scanToken tokenizer) 0L
  -            |> List.map (makeChunk line.LineNumber style offset extraColorInfo)
  +            |> List.map (makeChunk line.LineNumber style offset)
           tokens |> Seq.ofList
   
       let propertyChangedHandler = PropertyService.PropertyChanged.Subscribe handlePropertyChanged
  
positive.code: 
      override this.GetChunks(style, line, offset, length) =
          try
              let extraColorInfo =
                  maybe { let! document = Option.ofNull document
                          let! parsedDocument = Option.ofNull document.ParsedDocument
                          let! pc = tryCast<ParseAndCheckResults> parsedDocument.Ast
                          return! pc.GetExtraColorizations() }
  
              match (this.Document, line, offset, length, style) with
              | ExcludedCode styleName -> Seq.singleton(Chunk(offset, length, styleName))
              | PreProcessorCode _ -> base.GetChunks(style, line, offset, length)
              | OtherCode (_, lineText) when semanticHighlightingEnabled -> 
                  let tokens = getLexedTokens(style, line, offset, lineText, extraColorInfo)
                  if (tokens |> Seq.isEmpty || (tokens |> Seq.last).EndOffset < offset + lineText.Length ) then
                      base.GetChunks(style, line, offset, length)
                  else
  
negative.code:                         |> tryCast<ParseAndCheckResults>
                          |> Option.iter (getAndProcessSymbols >> Async.Start))
  
      let makeChunk (lineNumber: int) (style: ColorScheme) (offset:int) (token: FSharpTokenInfo) =
          let symbol =
              if isSimpleToken token.ColorClass then None else
              match symbolsInFile with
  