tol crash

[Jorge]

The following code make tol crash, for an indentical behaviour create a file
inside tol dir in development environment and insert the code given below.

Set result = Copy(Empty);

Set testIt (Text dir) {

Set dirSet = GetDir(dir);
Set result = EvalSet(dirSet[2], Set (Text subdir) {

Set If (subdir == "tests",

{Set makeTests(dir + "/tests")},
{Set testIt(dir + "/" + subdir)})

})

};

Set makeTests (Text dir) {

Set testFiles = GetDir(dir);
Set tolfiles = Select(testFiles[1], Real (Text name) {

Real If (GetFileExtension(name)=="tol", 1, 0)

});
Set tf = EvalSet(tolfiles, Text (Text name) {

Text file = dir + "/" + name;
Set lres = file? << Include(file);
Set (result := result << lres?);
file

})

};

[Jorge]

add the following line at the end of file to trigger the error:

Set testIt(".");

[danirus]

A solution for this crash, and many others that we always have had with := operator, has
just been deployed in Tol CVS. The problem appears when Tol variables used in the binary
operation := has different grammars.
This was happening because Tol programmers can create variables with same name and
different Types. The method to looking for an instance variable in Tol execution environment
is related also with this problem.