anchor.diff:      | null -> Quit
       | input ->
         let reader = Parsing.createForwardStringReader input 0
  -      let cmds = errors <|> outputmode <|> helptext <|> help <|> declarations <|> parse <|> project <|> completionTipOrDecl <|> quit <|> error
  +      let cmds = compilerlocation <|> errors <|> outputmode <|> helptext <|> help <|> declarations <|> parse <|> project <|> completionTipOrDecl <|> quit <|> error
         reader |> Parsing.getFirst cmds
   
   // --------------------------------------------------------------------------------------
  
positive.code:       return HelpText sym
      }
  
    // Parses always and returns default error message
    let error = parser { return Error("Unknown command or wrong arguments") }
  
  
negative.code:     | Error of string
      | Project of string
      | OutputMode of OutputMode
      | CompilerLocation
      | Help
      | Quit
  
  