gistfile1.io

Usine := Object clone do (
  /* (...) */
  create := method (factory,
    dummy := factories getSlot(factory) clone
    parentProto := dummy protos first
    parentProto slotNames foreach(slotName,
      value := nil
			
      if(parentProto getSlot(slotName) type == "Suite",
        if(suites getSlot(slotName),
          value = suites getSlot(slotName) + 1
          suites setSlot(slotName, value)
          ,
          value = suites setSlot(slotName, 0)
        )
        dummy setSlot(slotName, dummy getSlot(slotName) eval(value))
      )
    )
  dummy
)