anchor.diff:          yield "EndGlobal"
       }
   
  -let GenerateSolutionDefines (projects : Project list) =
  +let GenerateSolutionDefines (projects : Project seq) =
       XElement (NsMsBuild + "Project",
           XElement (NsMsBuild + "PropertyGroup",
               XElement(NsMsBuild + "FullBuild_Config", "Y"),
  
positive.code:     let slnFile = AddExt viewName Solution |> GetFile wsDir
      let repos = File.ReadAllLines (viewFile.FullName)
  
      let projects = ComputeProjectSelectionClosure antho.Projects repos |> Seq.toList
      
      let slnContent = GenerateSolutionContent projects
      File.WriteAllLines (slnFile.FullName, slnContent)
  
negative.code:     File.ReadAllLines (vwFile.FullName) |> Seq.iter (fun x -> printfn "%s" x)
  
  
  let GenerateSolutionContent (projects : Project seq) =
      seq {
          yield ""
          yield "Microsoft Visual Studio Solution File, Format Version 12.00"
  