anchor.diff:  
   
   
  -let Init (path : string) (uri : RepositoryUrl) = 
  -    let wsDir = DirectoryInfo(path)
  -    wsDir.Create()
  -    if IsWorkspaceFolder wsDir then 
  -        printf "[WARNING] Workspace already exists - skipping"
  -    else
  -        let vcsType = Vcs.VcsDetermineType uri
  -        let repo = { Name = RepositoryId.from Env.MASTER_REPO; Url = uri; Vcs=vcsType}
  -        VcsCloneRepo wsDir true repo
  -
   let Create (path : string) (uri : RepositoryUrl) (bin : string) = 
       let wsDir = DirectoryInfo(path)
       wsDir.Create()
  
positive.code:                 Vcs.VcsPull wsDir repo
  
      if bin then
          let baseline = Configuration.LoadBaseline ()
          let hash = baseline.Bookmarks |> Seq.find (fun x -> x.Repository = antho.MasterRepository.Name)
          let artifactDir = antho.Artifacts |> DirectoryInfo
          DisplayHighlight (sprintf "bin %s" hash.Version.toString)
          updateMasterBinaries hash artifactDir
  
  
  let Exec cmd =
  
negative.code:         | None -> Vcs.VcsCheckout wsDir repo None
  
      // update binaries with observable baseline
      updateMasterBinaries ()
  
  let Pull (src : bool) (bin : bool) =
      let antho = Configuration.LoadAnthology ()
  