anchor.diff:                  |> Array.tryFind (fun s -> s.RangeAlternate.StartLine = lineNumber && s.RangeAlternate.EndColumn = token.RightColumn+1)
   
           let extraColor =
  -            match extraColorInfo with
  +            match colourizations with
               | None -> None
               | Some(extraColourInfo) ->
                   extraColourInfo
  
positive.code:         | Some t, s -> Some(t, s)
          | _ -> None
  
      let getLexedTokens (style, line:DocumentLine, offset, lineText, extraColorInfo) =
          let tokenizer = sourceTokenizer.CreateLineTokenizer(lineText)
          let tokens = 
              List.unfold (scanToken tokenizer) 0L
              |> List.map (makeChunk line.LineNumber style offset extraColorInfo)
          tokens |> Seq.ofList
  
      let propertyChangedHandler = PropertyService.PropertyChanged.Subscribe handlePropertyChanged
  
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
  