anchor.diff:  
           loader, netFwInfo
   
  +    let [<Literal>] RefPrefix = "-r:"
  +
       let findReferences projPath : ProjInfo=
           let fcs = createFCS ()
           let loader, netFwInfo = createLoader ()
  
positive.code:             let references =
                  options.OtherOptions
                  |> Array.filter(fun s ->
                      s.StartsWith("-r:")
                  )
                  |> Array.map(fun s ->
                      // removes "-r:" from beginning of reference path
                      s.Remove(0,3)
                      |> FileInfo
                  )
  
  
negative.code:         if proc.ExitCode <> 0 then failwithf "opening browser failed"
  
      let serveDocs docsDir =
          async {
              waitForPortInUse hostname port
              sprintf "http://%s:%d/index.html" hostname port |> openBrowser
  