anchor.diff:              )
   
   
  -        let ofSeq (name : string) (getTraversal : string -> Type -> Expr) (methods : seq<MethodInfo>) =
  +        let ofSeq (name : string) (methods : seq<MethodInfo>) =
               let methods = Seq.toList methods
   
               // try to get definitions for all methods
  
positive.code:                     |> List.map (fun sf -> sf.strictInh)                                // take all strict inh attributes
                      |> Set.intersectMany                                                // take only those needed by all leaf-productions
  
  
  
              let kind, retType, dispatcher = createDispatcher strict name sfs
  
negative.code:                                     
  
                      let nodeType, retType = FSharpType.GetFunctionElements(def.Type)
              
  
                      { d with 
  