anchor.diff:      and visitBindindgs = List.iter visitBinding
   
       and visitPattern = function
  -        | SynPat.QuoteExpr(expr, _) -> visitExpr expr
  -        | SynPat.Named(pat, _, _, _, _) 
  -        | SynPat.Paren(pat, _)
  -        | SynPat.Typed(pat, _, _) -> visitPattern pat
  -        | SynPat.Ands(pats, _)
  -        | SynPat.Tuple(pats, _)
  -        | SynPat.ArrayOrList(_, pats, _) -> List.iter visitPattern pats
  -        | SynPat.Or(pat1, pat2, _) -> visitPattern pat1; visitPattern pat2
  -        | SynPat.LongIdent(_, _, _, ctorArgs, _, _) -> 
  +        | SynPat.QuoteExpr (expr, _) -> visitExpr expr
  +        | SynPat.Named (pat, _, _, _, _) 
  +        | SynPat.Paren (pat, _)
  +        | SynPat.Typed (pat, _, _) -> visitPattern pat
  +        | SynPat.Ands (pats, _)
  +        | SynPat.Tuple (pats, _)
  +        | SynPat.ArrayOrList (_, pats, _) -> List.iter visitPattern pats
  +        | SynPat.Or (pat1, pat2, _) -> visitPattern pat1; visitPattern pat2
  +        | SynPat.LongIdent (_, _, _, ctorArgs, _, _) -> 
               match ctorArgs with
               | SynConstructorArgs.Pats pats -> List.iter visitPattern pats
               | SynConstructorArgs.NamePatPairs(xs, _) -> 
  
positive.code:             walkType ty
              List.iter walkBinding bindings
              List.iter walkInterfaceImpl ifaces
          | SynExpr.For(_, ident, e1, _, e2, e3, _) -> 
              addIdent ident
              List.iter walkExpr [e1; e2; e3]
          | SynExpr.ForEach(_, _, _, pat, e1, e2, _) -> 
              walkPat pat
              List.iter walkExpr [e1; e2]
          | SynExpr.MatchLambda(_, _, synMatchClauseList, _, _) -> 
              List.iter walkClause synMatchClauseList
          | SynExpr.Match(_, e, synMatchClauseList, _, _) -> 
              walkExpr e 
              List.iter walkClause synMatchClauseList
          | SynExpr.TypeApp(e, _, tys, _, _, _, _) -> 
              List.iter walkType tys; walkExpr e
          | SynExpr.LetOrUse(_, _, bindings, e, _) -> 
              List.iter walkBinding bindings; walkExpr e
          | SynExpr.TryWith(e, _, clauses, _, _, _, _) -> 
              List.iter walkClause clauses;  walkExpr e
          | SynExpr.IfThenElse(e1, e2, e3, _, _, _, _) -> 
              List.iter walkExpr [e1; e2]
              e3 |> Option.iter walkExpr
          | SynExpr.LongIdentSet(ident, e, _)
          | SynExpr.DotGet(e, _, ident, _) -> 
              addLongIdentWithDots ident
              walkExpr e
          | SynExpr.DotSet(e1, idents, e2, _) -> 
              walkExpr e1
              addLongIdentWithDots idents
              walkExpr e2
          | SynExpr.DotIndexedGet(e, args, _, _) -> 
              walkExpr e
              List.iter walkIndexerArg args
          | SynExpr.DotIndexedSet(e1, args, e2, _, _, _) -> 
              walkExpr e1
              List.iter walkIndexerArg args
              walkExpr e2
          | SynExpr.NamedIndexedPropertySet(ident, e1, e2, _) -> 
              addLongIdentWithDots ident
              List.iter walkExpr [e1; e2]
          | SynExpr.DotNamedIndexedPropertySet(e1, ident, e2, e3, _) -> 
              addLongIdentWithDots ident
              List.iter walkExpr [e1; e2; e3]
          | SynExpr.JoinIn(e1, _, e2, _) -> List.iter walkExpr [e1; e2]
          | SynExpr.LetOrUseBang(_, _, _, pat, e1, e2, _) -> 
              walkPat pat
              List.iter walkExpr [e1; e2]
          | SynExpr.TraitCall (ts, sign, e, _) ->
  
negative.code: 
      and walkUnionCaseType = function
          | SynUnionCaseType.UnionCaseFields fields -> List.iter walkField fields
          | SynUnionCaseType.UnionCaseFullType (t, _) -> walkType t
  
      and walkUnionCase (SynUnionCase.UnionCase (attrs, _, t, _, _, _)) = 
          List.iter walkAttribute attrs 
          walkUnionCaseType t
  
      and walkTypeDefnSimple = function
          | SynTypeDefnSimpleRepr.Enum (cases, _) -> List.iter walkEnumCase cases
          | SynTypeDefnSimpleRepr.Union (_, cases, _) -> List.iter walkUnionCase cases
          | SynTypeDefnSimpleRepr.Record (_, fields, _) -> List.iter walkField fields
          | SynTypeDefnSimpleRepr.TypeAbbrev (_, t, _) -> walkType t
          | _ -> ()
  
      and walkComponentInfo isTypeExtensionOrAlias (ComponentInfo(attrs, typars, constraints, longIdent, _, _, _, _)) =
  