anchor.diff:                  if Seq.exists (fun (elem : Frontend) -> elem.Name = feName) AddinFrontend
                   then
                       try
  -                        match FrontendsManager.Component feName with
  +                        match Seq.tryFind (fun (elem : Frontend) -> elem.Name = feName) AddinFrontend with
                           | Some fe -> fe
                           | None -> failwith "Frontend is not found."
                       with
  
positive.code:                 | name::parameters -> generatorName := Some name; generatorParams := Some (String.concat " " parameters)
                  | _ -> failwith "You need to specify generator name"
              ), "Generator name. Use -ag to list available."
           "-ag", ArgType.Unit (printItems "generators" GeneratorsManager.Available !generatorName), "Available generators"
           "-c", ArgType.String (fun s -> conversions.Add s), "Conversion applied in order. Use -ac to list available."
           "-ac", ArgType.Unit (printItems "conversions" ConversionsManager.Available None), "Available conversions"
           "-D", ArgType.String (fun s -> userDefs := !userDefs @ [s]), "User defined constants for YardFrontend lexer."
           "-U", ArgType.String (fun s -> userDefs := List.filter ((<>) s) !userDefs), 
                  "Remove previously defined constants for YardFrontend lexer."
  
negative.code:     feName := // Fill by default value
          if Seq.exists (fun (elem : Frontend) -> elem.Name = "YardFrontend") AddinFrontend
          then Some "YardFrontend"
          else
              let tmpName = (Seq.head AddinFrontend).Name
              Some tmpName
              
      generatorName :=
          if Seq.exists (fun (elem : Generator) -> elem.Name = "RNGLRGenerator") AddinGenerator
          then Some "RNGLRGenerator"
          else 
              let tmpName = (Seq.head AddinGenerator).Name
              Some tmpName
  
      let generateSomething = ref true
  
  