anchor.diff:          else
             main state
   
  +    | CompilerLocation ->
  +        let locopt =
  +          FSharpEnvironment.BinFolderOfDefaultFSharpCompiler
  +            FSharpCompilerVersion.LatestKnown
  +        match locopt with
  +        | None -> printMsg "ERROR" "Could not find compiler"; main state
  +        | Some loc ->
  +
  +        match state.OutputMode with
  +        | Text -> printfn "DATA: compilerlocation\n%s\n<<EOF>>" loc
  +        | Json -> prAsJson { Kind = "compilerlocation"; Data = loc }
  +
  +        main state
  +
       | Help ->
           match state.OutputMode with
           | Text -> Console.WriteLine(helpText)
  
positive.code:       return HelpText sym
      }
  
    // Parses always and returns default error message
    let error = parser { return Error("Unknown command or wrong arguments") }
  
  
negative.code:     | null -> Quit
      | input ->
        let reader = Parsing.createForwardStringReader input 0
        let cmds = compilerlocation <|> errors <|> outputmode <|> helptext <|> help <|> declarations <|> parse <|> project <|> completionTipOrDecl <|> quit <|> error
        reader |> Parsing.getFirst cmds
  
  // --------------------------------------------------------------------------------------
  