diff --git a/src/Compiler/TypedTree/TypedTreeOps.FreeVars.fs b/src/Compiler/TypedTree/TypedTreeOps.FreeVars.fs index 975ff6cfb3a..e1c2d8e418b 100644 --- a/src/Compiler/TypedTree/TypedTreeOps.FreeVars.fs +++ b/src/Compiler/TypedTree/TypedTreeOps.FreeVars.fs @@ -260,7 +260,7 @@ module internal FreeTypeVars = acc and accFreeInTyparConstraints opts cxs acc = - List.foldBack (accFreeInTyparConstraint opts) cxs acc + ListInline.foldBack (accFreeInTyparConstraint opts) cxs acc and accFreeInTyparConstraint opts tpc acc = match tpc with @@ -375,7 +375,7 @@ module internal FreeTypeVars = accFreeInTyparConstraints opts v emptyFreeTyvars let accFreeInTypars opts tps acc = - List.foldBack (accFreeTyparRef opts) tps acc + ListInline.foldBack (accFreeTyparRef opts) tps acc let rec addFreeInModuleTy (mtyp: ModuleOrNamespaceType) acc = QueueList.foldBack