anchor.diff:                      addInfo tl ((fileName, lineNumber, hd) :: acc)
                   | [] -> acc
               let newItems = addInfo matchesList []
  -            processPattern pattern tl (acc @ (List.rev newItems))
  +            processFiles pattern tl (acc @ (List.rev newItems))
           | [] -> acc
  -    let rec processPatterns patterns fileNames acc =
  +    let rec processPatterns patterns filenames acc =
           match patterns with
           | hd :: tl ->
  -            let acc = processPattern hd fileNames acc
  -            processPatterns tl fileNames acc
  +            let acc = processFiles hd filenames acc
  +            processPatterns tl filenames acc
           | [] -> acc
  -    processPatterns patterns fileNames []
  -
  +    processPatterns patterns filenames []
  +
  +/// Prints the list of filename linenumber message and match string.
   let printInfo (info : (string * int * Match * string * string) list) =
       let printMatchCollection (item : (string * int * Match * string * string)) =
           let (fileName, lineNumber, regexMatch, matchString, msg) = item
  
positive.code:         then __SOURCE_DIRECTORY__                                                            // empty path
          elif System.IO.Path.IsPathRooted path   
          then path                                                                            // absolute path
          else  __SOURCE_DIRECTORY__ + System.IO.Path.DirectorySeparatorChar.ToString() + path // relative path
      let toFileList absolutePath =
          if (System.IO.Directory.Exists absolutePath)
          then Array.toList (System.IO.Directory.GetFiles absolutePath)
  
negative.code:         | [] -> ()
      printMatchInfoList info
  
  /// Adds a message to the list if there is no @ before the string for a parse_term or parse_type.
  let atSignCondition (item : (string * int * Match)) acc : (string * int * Match * string * string) list =
      let (fileName, lineNumber, regexMatch) = item
      let atSignString = regexMatch.Groups.["atSign"].Value
  