anchor.diff:          // Inject inactive code
           // These chunks come out from any #else branch in our scenarios
           | (InactiveCodeChunk (tokensText, moreOrigTokens)),  _ ->
  -            Debug.WriteLine("injecting inactive code '{0}'", String.concat "" tokensText)
  +            Debug.WriteLine("injecting inactive code '{0}'", String.concat "" tokensText |> box)
               let text = String.concat "" tokensText
               let lines = text.Replace("\r\n", "\n").Split([|'\r'; '\n'|], StringSplitOptions.RemoveEmptyEntries)
               // What is current indentation of this chunk
  
positive.code:         //       // HERE
          //       x + x
          | (LineCommentChunk false (commentTokensText, moreOrigTokens)),  _ ->
              Debug.WriteLine("injecting line comment '{0}'", String.concat "" commentTokensText)
              maintainIndent (fun () -> for x in commentTokensText do addText x)
              loop moreOrigTokens newTokens 
  
          // Inject block commment 
          | (BlockCommentChunk (commentTokensText, moreOrigTokens)),  _ ->
              Debug.WriteLine("injecting block comment '{0}'", String.concat "" commentTokensText)
              let comments = String.concat "" commentTokensText
              if comments.IndexOf('\n') = -1 then
                  // This is an inline block comment
  
negative.code: 
          | _,  ((Token newTok, newTokText) :: moreNewTokens) 
              when newTok.CharClass = TokenCharKind.WhiteSpace && newTok.ColorClass <> TokenColorKind.InactiveCode ->
              Debug.WriteLine("emitting whitespace '{0}' in new tokens", newTokText |> box)
              addText newTokText 
              loop origTokens moreNewTokens 
  
          // We emit all unmatched delimiter tokens
          | _,  (Delimiter newTokText :: moreNewTokens) 
              when newTokText <> "[<" && newTokText <> ">]" && newTokText <> "|" ->
              Debug.WriteLine("emitting non-matching '{0}' in new tokens", newTokText |> box)
              addText newTokText 
              loop origTokens moreNewTokens 
  
  