requires: {#Sequence}.
provides: {}.

d@(Derivable traits) derive
"Replaces the interpreter-provided derive method."
[| newTraits object |
  object: d clone.
  newTraits: Traits clone.
  object addDelegate: #parent valued: object traits.
  object traits: newTraits.
  object
].

d@(Derivable traits) deriveWith: others
"Replaces the interpreter-provided deriveWith: method."
[| newTraits object |
  object: d clone.
  newTraits: Traits clone.
  others reverseDo:
    [| :parent |
     object addSlotsFrom: parent.
     newTraits addDelegate: (('parent' ; (index as: String)) as: Symbol)
	       valued: parent].
  object addDelegate: #parent valued: object traits.
  object traits: newTraits.
  object
].