Как говорит Леппи, прямой поддержки partial
нет, хотя подобного эффекта можно достичь с помощью внутренних расширений типа .F # поддерживает internal
методы, поэтому ваш пример будет выглядеть так:
// primary definition somewhere
type Device() =
inherit MarshalByRefObject()
...
// type extension (roughly equivalent to partial class)
type Device with
member internal this.FindTagName(name:string, tag:OneTag) =
listFuncSect
|> Seq.exists
(fun fs ->
fs.listTags
|> Seq.exists (fun ot -> ot <> tag && ot.name = name))