anchor.diff:                      let l = searchLeft p
                       let r = searchRight p
                       let ident = s.Substring (l, r - l + 1)
  -                    if (ident.IndexOf('|') <> -1 && not(isValidActivePatternName(ident))) then None else
  -                        let pos   = r + magicalAdjustmentConstant 
  +                    if ident.IndexOf('|') <> -1 && not(isValidActivePatternName(ident)) then None else
  +                        let pos = r + magicalAdjustmentConstant 
                           Some(ident, pos, false)
                       )
   
       let GetCompleteIdentifierIsland (tolerateJustAfter:bool) (s : string) (p : int) : (string*int*bool) option =
  -        if String.IsNullOrEmpty(s) then None
  +        if String.IsNullOrEmpty s then None
           else     
               let directResult = GetCompleteIdentifierIslandImpl s p
               if tolerateJustAfter && directResult = None then 
  
positive.code:                 else NameAndResidue()
  
              let rec InResidue(pos,right) =
                  if pos < 0 then [],(line.Substring(pos+1,right-pos))
                  elif IsDot pos then InName(pos-1,pos,right)
                  elif IsLongIdentifierPartCharacter pos then InResidue(pos-1, right)
                  else [],(line.Substring(pos+1,right-pos))
                  
              let result = InResidue(index,index)
              result
  
negative.code:     // Adjusts the token tag for the given identifier
      // - if we're inside active pattern name (at the bar), correct the token TAG to be an identifier
      let CorrectIdentifierToken (s:string) tokenTag = 
          if s.EndsWith "|" then Microsoft.FSharp.Compiler.Parser.tagOfToken (Microsoft.FSharp.Compiler.Parser.token.IDENT s)
          else tokenTag
  
      let rec isValidStrippedName (name:string) idx = 
          if idx = name.Length then false
          elif IsIdentifierPartCharacter name.[idx] then true
          else isValidStrippedName name (idx + 1)
  
      // Utility function that recognizes whether a name is valid active pattern name
  