F# 2010 Seq.generate_using

Visual Studio 2010 中的 Seq.generate_using 是否有替代/解决方法？ FSharp.PowerPack.dll 不适用于 2010 AFAIK

（很抱歉，2010 年的 PowerPack 尚未上市。）

我不记得 CTP 更新是否已经如此，但在内部位中我收到警告：

此构造已被弃用。这 功能将在未来被删除 发布。如有必要，请复印一份 它的实现来自 F# PowerPack 并将其复制到您的 应用

这是 PowerPack 中的代码：

#nowarn "9"

namespace Microsoft.FSharp.Compatibility

open System.Collections.Generic

module Seq = 
  let combine     ie1 ie2  = Seq.zip ie1 ie2
  let nonempty (ie : seq<'T>)  = use e = ie.GetEnumerator() in e.MoveNext() //'

  let generate openf compute closef = 
        seq { let r = openf() 
              try 
                let x = ref None
                while (x := compute r; (!x).IsSome) do
                    yield (!x).Value
              finally
                 closef r }

  let generate_using (openf : unit -> ('b :> System.IDisposable)) compute = //'
        generate openf compute (fun (s:'b) -> s.Dispose()) //'

  let cons (x:'T) (s: seq<'T>) = 
        seq { yield x
              yield! s }