Commitd8544fe

authored and

committed

minor IL simplification (dotnet#3975)

1 parente0596f3 commitd8544feCopy full SHA for d8544fe

File tree

+10

-16

lines changed

+10

-16

lines changed

Lines changed: 9 additions & 15 deletions

Original file line number	Diff line number	Diff line change
`@@ -212,15 +212,11 @@ namespace Microsoft.FSharp.Collections`
`212`	`212`
`213`	`213`	`[<CompiledName("Fold")>]`
`214`	`214`	`letfold<'T,'State>folder(state:'State)(list:'T list)=`
`215`		`-match listwith`
`216`		`-\|[]-> state`
`217`		`-\|_->`
`218`		`-letf= OptimizedClosures.FSharpFunc<_,_,_>.Adapt(folder)`
`219`		`-let recloop s xs=`
`220`		`-match xswith`
`221`		`-\|[]-> s`
`222`		`-\| h::t-> loop(f.Invoke(s,h)) t`
`223`		`- loop state list`
	`215`	`+letf= OptimizedClosures.FSharpFunc<_,_,_>.Adapt(folder)`
	`216`	`+let mutableacc= state`
	`217`	`+for xin listdo`
	`218`	`+ acc<- f.Invoke(acc, x)`
	`219`	`+ acc`
`224`	`220`
`225`	`221`	`[<CompiledName("Pairwise")>]`
`226`	`222`	`letpairwise(list:'T list)=`
`@@ -356,12 +352,10 @@ namespace Microsoft.FSharp.Collections`
`356`	`352`	`letexists predicate list= Microsoft.FSharp.Primitives.Basics.List.exists predicate list`
`357`	`353`
`358`	`354`	`[<CompiledName("Contains")>]`
`359`		`-let inlinecontains value source=`
`360`		`-let reccontains e xs1=`
`361`		`-match xs1with`
`362`		`-\|[]->false`
`363`		`-\| h1::t1-> e= h1\|\| contains e t1`
`364`		`- contains value source`
	`355`	`+let reccontains value source=`
	`356`	`+match sourcewith`
	`357`	`+\|[]->false`
	`358`	`+\| h::t->if h= valuethentrueelse contains value t`
`365`	`359`
`366`	`360`	`let recexists2aux(f:OptimizedClosures.FSharpFunc<_,_,_>)list1 list2=`
`367`	`361`	`match list1,list2with`

Lines changed: 1 addition & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -102,7 +102,7 @@ namespace Microsoft.FSharp.Collections`
`102`	`102`	`///<param name="source">The input list.</param>`
`103`	`103`	`///<returns>True if the input list contains the specified element;false otherwise.</returns>`
`104`	`104`	`[<CompiledName("Contains")>]`
`105`		`-valinlinecontains:value:'T->source:'T list->bool when 'T:equality`
	`105`	`+val contains:value:'T->source:'T list->bool when 'T:equality`
`106`	`106`
`107`	`107`	`///<summary>Returns a list that contains no duplicate entries according to generic hash and`
`108`	`108`	`///equality comparisons on the entries.`

Comments

(0)