I have a question: why allProtocols returns an array and protocols a set? allProtocols
^ { allProtocol }, protocols asArray
protocols
^ protocols
protocolsNames
^ protocols
collect: #name
as: Array
initialize
super initialize.
protocols := IdentitySet new.
allProtocol := AllProtocol protocolOrganizer: self.
to me it looks suspicious and it will be a source of bugs.
Stef
