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:     // 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
  
negative.code:             else 
                  directResult
  
      let private defaultName = [],""
  
      /// Get the partial long name of the identifier to the left of index.
      let GetPartialLongName(line:string,index) =
          if isNull line then defaultName
          elif index < 0 then defaultName
          elif index >= line.Length then defaultName
          else
              let IsIdentifierPartCharacter pos = IsIdentifierPartCharacter line.[pos]
              let IsLongIdentifierPartCharacter pos = IsLongIdentifierPartCharacter line.[pos]
  