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