id	summary	reporter	owner	description	type	status	priority	milestone	component	version	severity	resolution	keywords	cc
319	Struct function can yield a TOL failure	imendez	danirus	"Hi,
This code yields a TOL failure:

Set s = SetOfSet([[""20050929.01.MG"", ""VentaLCOLCOLC"",
                 0.0384100005031, 2395.0, 51.0]]);
Struct If(EQ(Card(s[1]), 5),
{
  Text strTxt = ""Struct CjtoSt(Text EstSes, Text Output, Real StdDev, Real
NumData, Real NumVar)"";
  Text expr = strTxt +"";MakeGlobal(""+ strTxt +"");""+ strTxt +"";"";
WriteLn(""Estructura de un conjunto de 5 elementos:\n""+ expr);
  IncludeText(expr)
},
{
  Text strTxt = ""Struct CjtoSt(Text EstSes, Text Output, Real StdDev, Real
NumData)"";
  Text expr = strTxt +"";MakeGlobal(""+ strTxt +"");""+ strTxt +"";"";
WriteLn(""Estructura de un conjunto de 4 elementos:\n""+ expr);
  IncludeText(expr)
});
Set h = [[ PutStructure(""CjtoSt"", s[1]) ]];

This code has the same result, but I don´t know if it's the same case:

Set s = SetOfSet([[""20050929.01.MG"", ""VentaLCOLCOLC"",
                 0.0384100005031, 2395.0, 51.0]]);
Struct If(EQ(Card(s[1]), 5),
{
  CjtoSt(Text EstSes, Text Output, Real StdDev, Real NumData, Real NumVar)
},
{
  CjtoSt(Text EstSes, Text Output, Real StdDev, Real NumData)
});

Regards."	enhancement	closed	lowest		SetAlgebra	head	minor	fixed		Alfredo Torre