Ticket #869: ticket_18.ObjectReferencesAndDecompilation.tol

//////////////////////////////////////////////////////////////////////////////
// Compílese el archivo (con F9)

Class @Element {
  Text _.info;
  Anything GetThis(Real void){ _this }
};

NameBlock Container = [[
  Set _.elements = Copy(Empty);
  Real CreateElement(Text info) {
    @Element element = [[
      Text _.info = info
    ]];
    Set Append(_.elements, [[element]]);
  0};
  @Element GetElement(Real index) {
    _.elements[index]
  }
]];

Real Container::CreateElement("nota");

//////////////////////////////////////////////////////////////////////////////
// Compílese aparte esta línea (con F11, en el Eval u otro archivo)
// Decompílese la línea anterior (con F8 donde corresponda)

// @Element algo = Container::GetElement(1);

//////////////////////////////////////////////////////////////////////////////
// Compílese aparte esta línea (con F11, en el Eval u otro archivo)
// y se obtendrá el error

// Anything ea = Container::GetElement(1)::GetThis(?);

//////////////////////////////////////////////////////////////////////////////