anchor.diff:              )
   
           let! parallelResults =
  -          let noWorkers = numberOfWorkers false config
  +          let noWorkers = numWorkers false config
             if List.length parallel <= noWorkers then
               Async.Parallel parallel
               |> Async.map (Seq.concat >> Seq.toList)
             else
  -            Async.foldParallelLimit noWorkers (@) [] parallel
  +            Async.foldParallel noWorkers (@) [] parallel
   
           if List.isEmpty sequenced |> not && List.isEmpty parallel |> not then
             do! config.printer.info "Starting sequenced tests..."
  
positive.code:           else
              false )
          >> Seq.map evalTestAsync
          >> foldRunner cancel folder (runningTests,results,maxMemory)
  
        let initial = ResizeArray(), ResizeMap(), GC.GetTotalMemory false
  
  
negative.code: open System.Reflection
  open System.Diagnostics
  open System.Threading
  open System.Threading.Tasks
  
  // TODO: move to internal
  type SourceLocation =
  