id	summary	reporter	owner	description	type	status	priority	milestone	component	version	severity	resolution	keywords	cc
776	Fail using PutName	Víctor de Buen Remiro	Víctor de Buen Remiro	"Function {{{ PutName }}} does nothing in this code
{{{
Set _.names = Copy(Empty);
Set _.data.cols = Copy(Empty);

Real _AppendVariable( Matrix P, Text name ) 
{
  Real ii = FindIndexByName( _.data.cols, name );
  Real If( ii == 0, 
  {
    Set Append( _.names, [[ name ]] );
    Set Append( _.data.cols, [[ P ]] );
    Real n = Card(_.data.cols);
    Matrix PutName( name, _.data.cols[n] );
    WriteLn(""name='""<<name+""'"");
    WriteLn(""Name( _.data.cols[""<<n+""])='""<<
             Name( _.data.cols[n] )+""'"");
    Real SetIndexByName( _.data.cols )
  });
  ii
};
Real { _AppendVariable( Matrix a = Rand(1,1,1,1), ""x1"" ) };

}}}"	defect	closed	highest	Mantainance	Kernel		blocker	fixed