Corrected procedure type distance

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

source/FoxSemanticChecker.Mod

@@ -8554,9 +8554,9 @@ TYPE
 			i := 0;
 			result := 0;
 			IF right.isDelegate & ~procedureType.isDelegate THEN
-				result := Infinity;
-			ELSIF procedureType.isDelegate & ~right.isDelegate THEN
 				INC(result);
+			ELSIF procedureType.isDelegate & ~right.isDelegate THEN
+				result := Infinity;
 			END; 
 			
 			(*! taken from paco, seems to not be 100% correct, check (in particular array part -> length of arrays??) *)