requires: {#Root}.
provides: {#Namespace}.

"Some utility methods for Namespace objects."

ns@(Namespace traits) flattened
"Creates a new single Namespace object with all the slot-values and inherited
slot values of the original Namespace structure."
[| newNS |
  newNS: Namespace clone.
  newNS addSlotsFrom: ns.
  ns allDelegatesDo: [| :each | each traits == ns traits
			      ifTrue: [ns addSlotsFrom: each]].
  ns
].