anchor.diff:              // Parse grammar    
               let ilTree =  
                   //try
  -                    let defStr = 
  -                        List.fold (fun acc x -> if acc = "" then x else (acc + ";" + x)) "" !userDefs
  +                    let defStr = List.fold (fun acc x -> if acc = "" then x else (acc + ";" + x)) "" !userDefs
                       if System.String.IsNullOrEmpty defStr
                       then grammarFilePath
                       else grammarFilePath + "%" + defStr
  
positive.code:          "-af", ArgType.Unit (printItems "frontends" FrontendsManager.Available !feName), "Available frontends"
           "-g", ArgType.String 
              (fun s -> 
                  match Array.toList (s.Split(' ')) with
                  | name::[] -> generatorName := Some(name); generatorParams := None
                  | 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 (fun x -> x <> s) !userDefs), 
                  "Remove previously defined constants for YardFrontend lexer."
           "-i", ArgType.String (fun s ->
                                     testFile := System.IO.Path.GetFileName(s) |> Some
                                     testsPath := System.IO.Path.GetDirectoryName(s) |> Some), "Input grammar"         
           ] |> List.map (fun (shortcut, argtype, description) -> ArgInfo(shortcut, argtype, description))
      ArgParser.Parse commandLineSpecs
  
      let run () =
          match !testFile, !feName , !generatorName with
          | Some(fName), Some(feName), Some(generatorName) ->
              let grammarFilePath = System.IO.Path.Combine((!testsPath).Value, fName)
              let fe =
                  let _raise () = InvalidFEName feName |> raise
  
negative.code: ﻿//  Copyright 
  //    2010, 2011, 2012, 2013 Konstantin Ulitin, Semen Grigorev
  //
  //  This file is part of YaccConctructor.
  //
  