compatibility with ARRAY [?];

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8036 8c9fc860-2736-0410-a75d-ab315db34111

source/FoxSemanticChecker.Mod

@@ -9266,6 +9266,7 @@ TYPE
 			IF (from.form # SyntaxTree.Static) OR (from.staticLength = to.staticLength) THEN
 				IF  fromBase = toBase THEN i := 0
 				ELSIF toBase = NIL THEN i := 1
+				ELSIF fromBase = NIL THEN i := Infinity;
 				ELSIF toBase.SameType(fromBase) THEN i := 0
 				ELSIF (fromBase IS SyntaxTree.MathArrayType) & (toBase IS SyntaxTree.MathArrayType) THEN
 					i := MathArrayTypeDistance(system,fromBase(SyntaxTree.MathArrayType),toBase(SyntaxTree.MathArrayType),varpar);