match pulsewith

if timeout>=0|| cancellationSupportedthen

ensurePulse()|> ignore

|nullwhen timeout>=0|| cancellationSupported->

ensurePulse()|> ignore

return! processFirstArrival()

(mkLambdaNoType g m enumv

(mkCallSeqGenerated g m genElemTy(mkUnitDelayLambda g m(callNonOverloadedMethod g amap m"MoveNext" inpEnumTy[enume]))

(mkInvisibleLet m v(callNonOverloadedMethod g amap m"get_Current" inpEnumTy[enume])

body))))

(mkCoerceIfNeeded g(mkSeqTy g genElemTy)(tyOfExpr gbody) body)))))

| SeqTryFinally(e1,compensation,m)->

topAttrs.assemblyAttrs |> List.iter (function

| Attrib(tref, _, [ AttribExpr(Expr.Const (Const.String(version), range, _), _) ] , _, _, _, _) ->

let attrName = tref.CompiledRepresentationForNamedType.FullName

let isValid =

let isValid() =

try IL.parseILVersion version |> ignore; true

with _ -> false

match attrName with

| "System.Reflection.AssemblyInformationalVersionAttribute"

| "System.Reflection.AssemblyFileVersionAttribute" //TODO compile error like c# compiler?

| "System.Reflection.AssemblyVersionAttribute" when not isValid ->

| "System.Reflection.AssemblyVersionAttribute" when not(isValid()) ->

warning(Error(FSComp.SR.fscBadAssemblyVersion(attrName, version), range))

| _ -> ()

| _ -> ())

yield factorial x

TestRecFuncInSeq()

interface System.Collections.Generic.IEnumerable<int>with

memberx.GetEnumerator()=(seq{yield1;yield2}).GetEnumerator()

interface System.Collections.IEnumerablewith

memberx.GetEnumerator()=(seq{yield1;yield2}:> System.Collections.IEnumerable).GetEnumerator()

seq{yield! Seq.collect(fun _-> x)[1]}

check"ccekecnwe"(iterate(Unchecked.defaultof<S>)|> Seq.length)2