Async.Parallel calls Seq.toArray twice.

fsharp · May 27, 2013 · 5ab2403 · 5ab2403
1 parent 03e548b
commit 5ab2403
Showing 1 changed file with 0 additions and 2 deletions.
diff --git a/src/fsharp/FSharp.Core/control.fs b/src/fsharp/FSharp.Core/control.fs
@@ -1338,8 +1338,6 @@ namespace Microsoft.FSharp.Control
                 if tasks.Length = 0 then args.cont [| |] else  // must not be in a 'protect' if we call cont explicitly; if cont throws, it should unwind the stack, preserving Dev10 behavior
                 protectedPrimitiveCore args (fun args ->
                     let ({ aux = aux } as args) = delimitSyncContext args  // manually resync
-                    let tasks = Seq.toArray l
-                    if tasks.Length = 0 then args.cont [| |] else
                     let count = ref tasks.Length
                     let firstExn = ref None
                     let results = Array.zeroCreate tasks.Length